Fórum pegar quem executando o evento atual #336272

15/01/2007

0

Delphi

Olá, preciso saber quem esta executando o procedure Tmov_bancario.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
quero saber quem executou .. se foi o botao X, y

abraços


Fabiotb

Fabiotb

Responder

Posts

16/01/2007

Aroldo Zanela

Colega,

Tem certeza que precisa disso? É algo realmente não muito usual. Segue uma maneira:

  if ( Sender is TButton) then
  begin
    if (Sender as TButton).Caption = ´btn1´ then
      ShowMessage(´Botão 1´) else
    if (Sender as TButton).Caption = ´btn2´ then
      ShowMessage(´Botão 2´);
  end;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar