Fórum ToolButton dinâmico #278703
25/04/2005
0
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?
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
Curtir tópico
+ 0
Responder
Posts
25/04/2005
Isabelct
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;
Responder
Gostei + 0
25/04/2005
Aroldo Zanela
Colega,
if (Sender as TToolButton).Caption = ´Oi´ then
Responder
Gostei + 0
27/04/2005
Willian
Aí galera, obrigado!
Resolveu bem!
Valeu!
Resolveu bem!
Valeu!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)