Fórum Como faço para identificar um objeto??? #207907

20/01/2004

0

:?: Como faço para identificar um objeto, quando passo o mouse ou clico nele??

Exemplificando: Se eu clico em um label, aparece o nome do label, se eu clico em um Shape, aparece o nome do Shape, (aparece em um Edit por exemplo).

Desde já agradeço a todos.

Rafael de Andrade Silva
rafael@topocart.com.br


Rafael Silva

Rafael Silva

Responder

Posts

20/01/2004

Maxsoftware

Propriedade ShowHint coloque como true.
Propriedade Hint - escreva o texto a ser apresentado.


Ass: Max...


Responder

Gostei + 0

21/01/2004

Regisjj

Utilize o Seguinte Código

Declare a função:

procedure IdentificaObjeto(Sender: TObject);

logo abaixo ao código de declaração dos componentes do Form:

Ex:
TForm1 = class(TForm)
EditNome: TEdit;
Button1: TButton;
Label1: TLabel;
RadioGroup1: TRadioGroup;
Panel1: TPanel;
procedure IdentificaObjeto(Sender: TObject);
private...

Implementação da Rotina:

procedure Form1.IdentificaObjeto(Sender: TObject);
begin
EditNome.Text := Sender.Name;
end;

Pronto: Agora para cada componente que vc colocar no Form, e se o mesmo tiver o evento OnClick, vc ira relacionar o evento OnClik a esta rotina: Note no ObjectInspector estará disponivel para vc a rotina.


Responder

Gostei + 0

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

Aceitar