How can I determine which dynamically created label I clicked on?

[Ziska]

Hi!
I’ve tried doing this in different ways, but I can’t find a way for it to work.
I have an array of TLabel called Termin which goes from 0 to length of another array. The Labels in array Termin are created dynamically. I want to open a new form when I click on a label.

Code: [Select]

for f:=0 to high(Termin) do
     begin
     Termin[f].OnClick := @Form4.ShowDetails;
     end; This is the procedure which opens, when I click on a label:

Code: [Select]

procedure TForm4.ShowDetails(Sender:TObject);
begin
  Alldays1 := i; //Alldays1 and Alldays2 are sent to form5 to show the contents of a record
  Alldays2 := f;
  Form5.Show;
end; When I run the program and click on a label, form5 opens and shows the contents of a record, that belongs to Termin[highTermin].
This makes sense, because the program runs f from 0 to high(Termin). When I click on a label, f is already high(Termin). Does anybody know how I can tell the program, which label I clicked on?

Thank you for you help!

[typo]

Probably Sender parameter will return it.

[Arbee]

I guess several options are available.  One of the ideas is to fill the "tag" property of each label you create with a - unique - number, for instance the index of your loop.  When the ShowDetails function is invoked the Sender parameter will be the label that caused the click.  You can then inspect its tag property and determine which one it is.

[ludob]

In TForm4.ShowDetails, TLabel(Sender).name returns the name you assigned to the button. A better solution is to assign a number to TLabel.Tag at creation and read that as TLabel(Sender).Tag. Integers are easier for comparisons and case statements. Tags are not used anywhere else.

[Ziska]

Thank you so much! I used Tags and it worked!