ToolButton dinâmico

Delphi

25/04/2005

Galera,

Eu crio dinamicamente (via código) vários ToolButtons numa ToolBar. Durante a criação deles eu uso:

Botao.OnClick := BotaoClick;

Atribuo a procedure BotaoClick ao Botao.
Como eu faço para nessa procedure detectar o Caption desse botão se eu recebo só o Sender (TObject) como parâmetro e ele não me fornece a propriedade caption?


Willian

Willian

Curtidas 0

Respostas

Isabelct

Isabelct

25/04/2005

Você pode utilizar o que chamamos de TypeCast. Assim:

var 
  CaptionDoBotao: string;
begin
  CaptionDoBotao := ´´;
  if (Sender is TToolButton) then // Testa se o Sender é do tipo TToolButton
    CaptionDoBotao := (Sender as TToolButton).Caption; // Pega a propriedade Caption do botão
end;



GOSTEI 0
Aroldo Zanela

Aroldo Zanela

25/04/2005

Colega,

  if (Sender as TToolButton).Caption = ´Oi´ then



GOSTEI 0
Willian

Willian

25/04/2005

Aí galera, obrigado!
Resolveu bem!
Valeu!


GOSTEI 0
POSTAR