Hallo alle miteinander,
ich habe folgende Situation:
Ich erzeuge mit
LabelLoeschen[1]:=TLabel.create(self);
zur Laufzeit neue Labels. LabelLoeschen ist definiert als LabelLoeschen: array[1..50] of TLabel; Es ist nicht bekannt, ob tatsächlich 50 Labels erzeugt wurden; es können auch nur bspw. 6 erzeugt werden. Soweit funktioniert noch alles wunderbar. Ich weise den Labels jeweils noch das Ereignis onClick auf die Prozedur LabelLoeschenClick zu (LabelLoeschen[iPos].onClick:=LabelLoeschenClick ).
Nun will ich in der Prozedur LabelLoeschenClick über die Variable Sender herausfinden, auf welches Label geklickt wird. Nachstehendes funktioniert bei mir nicht.
Delphi-Quellcode:
procedure TFRVersion.LabelLoeschenClick(Sender: TOBject);
var i:integer;
begin
for i:=1 to length(Labelfelder) do
begin
if Sender=Labelfelder[i]
then begin
ShowMessage('ja');
end;
end;
end;
Ich bekomme keine Fehlermeldung. Ich habe mit einem Hatlepunkt auch ausprobiert, ob diese Prozedur auch aufgerufen wird. Dem ist so. Könnt Ihr mir helfen?
Besten Dank
Ulrich
[EDIT=Luckie]Code-Tags hinzugefügt. Bitte das nächste Mal selber machen. Danke.[/EDIT]