Form zur Laufzeit erstellen und Timer, Label zuweisen

[DeddyH]

Wessen Label1 ist das wohl? Ich fürchte, da muss man etwas tiefer in die Trickkiste greifen.

Delphi-Quellcode:

//Label erstellen
lab := Tlabel.Create(frm);
lab.Parent := frm;
lab.Name:= 'Label1';
lab.Caption := lab.Name;
lab.Font.Size := 10;
lab.Align := alTop;

Timer := TTimer.Create(frm);
Timer.OnTimer := Zeit;
...

Procedure TForm1.Zeit(Sender: TObject);
var
  ALabel: TLabel;
begin
  ALabel := (Sender as TTimer).Owner.FindComponent('Label1') as TLabel;
  if Assigned(ALabel) then
    ALabel.caption := 'irgendwas';
end;

Klappt es so?