EventName in For-Schleife ändern

[turboPASCAL]

Also:

Delphi-Quellcode:

for i:=0 to 10 do
  begin
    Lab:=TLabel.Create(self);
    Lab.Parent:=Form1;
    Lab.Caption:='Caption '+IntToStr(i);
    Lab.Top:=i*15;
    Lab.Show;
    Lab.Name:='Lab'+IntToStr(i);
    Lab.OnMouseMove:=LabMove;
  end;
end;

würde ich ändern in:

Delphi-Quellcode:

for i:=0 to 10 do
  begin
    Lab:=TLabel.Create(self);
    Lab.Parent:=Form1;
    Lab.Caption:='Caption '+IntToStr(i);
    Lab.Top:=i*15;
    Lab.Show;
    Lab.Tag := i; // <--<<
    Lab.OnMouseMove:= OnLabMove;
  end;
end;

...und das dann so:

Delphi-Quellcode:

procedure FormXYZ.OnLabMove(Sender: TObject);
begin
  if Sender is TLabel then
    if TLabel(Sender).Tag = 2 then exit;  
end;