Identificar componente

Delphi

15/10/2004

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


Wbb

Wbb

Curtidas 0

Respostas

Wolverine

Wolverine

15/10/2004

procedure TForm1.Button1Click(Sender: TObject);
begin

ShowMessage(Button1.Name+´/´+Button1.ClassName);
end;


GOSTEI 0
Wbb

Wbb

15/10/2004

Obrigado pela ajuda.
Se tudo fosse tão simples assim...

wbb


GOSTEI 0
Fórum Vini

Fórum Vini

15/10/2004

Olá,
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;


GOSTEI 0
POSTAR