Cleiton;
SEnder so tem nos eventos ...dos objetos...
procedure TForm1.Button1click(Sender : TBobject);
begin
if (Sender is TButton) then begin
TButton(Sender).Caption := 'Este é o cara'
end
end;
Atenc;
Elazar
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Cleiton
Enviada em: terça-feira, 19 de dezembro de 2006 11:47
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: Saber qual botão do formulário foi clicado
Oi Ricardo...
Estou com dificuldade pra executar as intruçoes que você me enviou.
Preciso declarar a variável sender nesta verificação? Como faço pra
declarar?
if (Sender is TButton) then
Está dando esse erro: Undeclared identifier: 'Sender'
Um grande abraço
Cleiton
----- Original Message -----
From: Ricardo Bianchin
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, December 16, 2006 6:38 PM
Subject: [delphi-br] Re: Saber qual botão do formulário foi clicado
vc ja notou q num evento onclick se ve:
procedure TForm1.Button1Click(Sender: TObject);
O sender eh uma variavel q contem o q foi clicado, quer seja label,
botao...
vc deve testar com o "is" pra saber o tipo do q foi clicado pra poder
converte-lo do tipo tobject para o q vc clicou
if sender is tbutton then
showmessage( TButton(Sender).Name + ' foi clicado.');
ou vc pode testar se foi o button1 ou o button2 ou um label... q foi
clicado:
if sender is tbutton then
begin
if sender = button1 then
coisa
end
else if sender is tlabel then
begin
if sender - label1 then
outracoisa
end
dai vc pode criar só um evento onclic pra todo mundo
--- Em delphi-br@yahoogrupos.com.br, "Cleiton" <[EMAIL PROTECTED]> escreveu
>
> Oi pessoal
>
> Tem alguma forma de saber qual botão do formulário foi clicado? Se
tiver, como proceder?
> --
> Esta mensagem foi verificada pelo sistema de antivírus e
> acredita-se estar livre de perigo.
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
--
Esta mensagem foi verificada pelo sistema de antivírus e
acredita-se estar livre de perigo.
[As partes desta mensagem que não continham texto foram removidas]
_______________________________________________________
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
