Hallo
Ich habe vor mir 2 Formen, die erste Form ist die Hauptform, diese besitzt einem Button. Wenn ich diesen
Button betätige wird eine Komplett neue Form zur Laufzeit erzeugt und in der Zweiten Form angezeigt. Auf
der neu erzeugten Form werden im Anschluss noch 2 Labels Platziert. Der Code für das ganze sieht nun wie
folgt aus:
Deklarationen der Hauptform:
Delphi-Quellcode:
var
Form1: TForm1;
count: integer = 0;
frm: TForm;
lab: tlabel;
Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
count:=count+1;
//Form erstellen
frm := tform.Create(self);
frm.BorderStyle := bsSingle;
frm.BorderIcons := [];
frm.Parent:= form2;
frm.Align := alTop;
frm.Height:= 80;
frm.Caption:= 'Form'+ inttostr(count);
frm.Name:= frm.Caption;
frm.OnShow := Show;
frm.Show;
//Label erstellen
lab := Tlabel.Create(frm);
lab.Parent := frm;
lab.Name:= 'Label2';
lab.Caption := lab.Name;
lab.Align := alTop;
lab.Font.Size := 10;
lab.Caption := 'Bestellt um: ' + TimeToStr(Time);
//Label erstellen
lab := Tlabel.Create(frm);
lab.Parent := frm;
lab.Name:= 'Label1';
lab.Caption := lab.Name;
lab.Font.Size := 10;
lab.Align := alTop;
end;
Ich möchte nun auch noch zu jeder erstellten Form einen Timer zur Laufzeit hinzufügen und diesen
dann jede Sekunde die Caption vom erzeugten Label1 auf seiner eigenen Form zu ändern.
Problem:
Ich erstelle den Timer und weise diesem auch sein Event zu welches ja lautet die Caption von Label1
zu ändern was aber noch nicht geht weil Label1 ja noch garnicht erzeugt worden ist. Also wie schaffe
ich das, dass der Timer seinen Job erledigt und das bei jeder erzeugten Form auf der er Läuft?
Danke