[Resolvido] Problemas com Label Dinamico - Delphi 5

[tiuzaum 0]

Boa Tarde rapaziada, bom, ja leio o forum a algum tempo, e por muitas vezes é de grande ajuda, mas dessa vez venho recorer a vocês, em busca da solução espero que alguem possa me ajudar hohohohoho.

 

Eu tenho uma aplicação, que cria diversos Labels dinamicos, os quais são criados certinho como manda a cartilha, com nomes diferentes o parent correto e etc.

Enfim, eu tenho um evento OnClick, que pega o nome do label clicado, porem, so retorna o valor do ultimo label criado.

 

Exemplo

 

se eu tenho 10 labels criados e clico no label de numero 5, deveria voltar o nome do label como 5, mas esta voltando 10.

 

Eu queria saber se tem como eu pegar o valor do label que eu estou clicando, tem?

 

Agradeço desde já.

 

Abraços.

[Raficcha 1]

Crie uma procedure no seu form assim:

 

procedure CliqueDoLabel(Sender: TObject);

 

e na implementação do procedimento coloque isso

 

 procedure TForm1.Label1Click(Sender: TObject);
 var
     LabelAtt : ^TLabel;
 begin
     LabelAtt := @Sender;
     showmessage('O label clicado foi "'+LabelAtt.Name+'"');
 
 end;

agora nos seus labels coloque assim

 

label1.onclick := CliqueDoLabel

label2.onclick := CliqueDoLabel

 

se você estiver utilizando um array coloque assim

VLabels[1].onclick := CliqueDoLabel

VLabels[2].onclick := CliqueDoLabel

 

ou ate mesmo em um for

for cont := 1 to length(VLabels)-1 do

VLabels[cont].onclick := CliqueDoLabel

 

 

 

não sei se é isso que você tem ai, poste ai o codigo que você escreveu para que possamos ajudar melhor

[tiuzaum 0]

Oloco, a resposta veio rapido!!!

 

Muuuitissimo obrigado Raficcha, era exatamente isso que eu precisava.

Sou muito grato.