checkbox com a propriedade transparent

Question

galera, como eu poderia implementar a propriedade transparent do TCustomLabel no checkbox???...

Marcio.theis · Answer

Se vc quiser pode baixar um componente com estar propriedades e outras neste [url=//www.torry.ru/vcl/buttons/checkboxes/pdpcheck.zip]link[/url]...

_rodfaria_ · Answer

Combine um �checkbox sem caption� com um �label transparent� para ter o mesmo efeitoou ainda, tente codificar o seu pr�prio componente:[url]//tinyurl.com/cvjs7[/url]Rod....

Zumbi · Answer

Galera segue ai o codigo do componente de como ficou:

  finally 
    XCanvas.Free; 
    end;
end;

procedure TDBCheckBoxTransparent.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params); 
  Params.ExStyle:=Params.ExStyle or WS_EX_Transparent;
end;

procedure TDBCheckBoxTransparent.CreateWnd;
begin
  inherited CreateWnd; 
  SetButtonStyle;
end;

procedure TDBCheckBoxTransparent.SetButtonStyle;
const
  BS_MASK = $000F; 
var 
  Style: Word;
begin 
  if HandleAllocated then begin 
    Style:=BS_CHECKBOX or BS_OWNERDRAW;
    if GetWindowLong(Handle, GWL_STYLE) and BS_MASK <> Style 
      then SendMessage(Handle, BM_SETSTYLE, Style, 1); 
    end;
end;

end.

F�rum checkbox com a propriedade transparent #300049