Fórum Identificar componente #254567
15/10/2004
0
Olá!
Estando com o programa rodando, gostaria que quando o usuário clicasse em um componente qualquer exibido na tela, fosse emitida uma mensagem informando o Nome e o Tipo do componente.
Exemplo:
Se o usuário clicar num botão, aparece a mensagem ´Componente = TButton, Nome = Button1´.
Alguém pode me dar uma ajudinha?
Valeu
wbb
Estando com o programa rodando, gostaria que quando o usuário clicasse em um componente qualquer exibido na tela, fosse emitida uma mensagem informando o Nome e o Tipo do componente.
Exemplo:
Se o usuário clicar num botão, aparece a mensagem ´Componente = TButton, Nome = Button1´.
Alguém pode me dar uma ajudinha?
Valeu
wbb
Wbb
Curtir tópico
+ 0
Responder
Posts
15/10/2004
Wolverine
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Button1.Name+´/´+Button1.ClassName);
end;
begin
ShowMessage(Button1.Name+´/´+Button1.ClassName);
end;
Responder
Gostei + 0
15/10/2004
Wbb
Obrigado pela ajuda.
Se tudo fosse tão simples assim...
wbb
Se tudo fosse tão simples assim...
wbb
Responder
Gostei + 0
15/10/2004
Fórum Vini
Olá,
você também pode usar uma rotina para todos os componentes:
Depois de colocar esse código, basta setar todos os eventos OnClick dos componentes desejados para essa procedure..
Espero ter ajudado,
Vinicius;
você também pode usar uma rotina para todos os componentes:
procedure TForm1.CliqueGenerico(Sender: TObject);
begin
if ( Sender is TComponent ) then
Showmessage( (Sender as TComponent).Name + ´/´ + Sender.ClassName );
end;Depois de colocar esse código, basta setar todos os eventos OnClick dos componentes desejados para essa procedure..
Espero ter ajudado,
Vinicius;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)