Problem bei der Bestimmung der Komponente durch Var Sender

**ustra**

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.

zusammenfalten · markieren

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]

Problem bei der Bestimmung der Komponente durch Var Sender

Problem bei der Bestimmung der Komponente durch Var Sender

Forumregeln