EventName in For-Schleife ändern

[uligerhardt]

Ich würde die Labels in einem Array speichern - das erweist sich auf Dauer als vorteilhaft. Etwa so:    FLabels: array[0..10] of TLabel; im private-Teil von TForm1 und so

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  Lab: TLabel;
begin
  for i := Low(FLabels) to High(FLabels) do
  begin
    Lab := TLabel.Create(Self);
    Lab.Parent := Self; // besser Self statt Form1
    Lab.Caption := 'Caption ' + IntToStr(i);
    Lab.Top := i * 15;
    // Lab.Show; <== überflüssig
    Lab.Name := 'Lab' + IntToStr(i);
    Lab.OnMouseMove := LabMove;
    FLabels[i] := Lab;
  end;
end;

beim Erzeugen.