Problem bei der Bestimmung der Komponente durch Var Sender

[Sharky]

Hai Ustra,

willkomen im Forum.

Verwende doch einfach das Tag-Propertie:

Delphi-Quellcode:

procedure TForm1.LabelClick (Sender: TObject);
begin
 ShowMessage ('Es wurde auf ' + IntToStr ((Sender AS TLabel).Tag) + ' gelickt');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 i                  : integer;
begin
 for i := 1 to length(Labelfelder) do
  begin
   LabelFelder[i] := TLabel.create(self);
   With LabelFelder [i] do
    begin
     Tag := i;
     Caption := 'Label-' + IntToStr (i);
     Top := 15 * i;
     left := 20;
     Parent := Form1;
     OnClick := LabelClick;
    end;
  end;
end;

[Edit] Grummel.... Luckie war wieder schneller [/Edit]