Form zur Laufzeit erstellen und Timer, Label zuweisen

[jacky213]

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

[DeddyH]

Wie sieht denn der Timer-Code aus?

[jacky213]

Zur Zeit sieht der Timer Code so aus:

Delphi-Quellcode:

Procedure TForm1.Zeit(Sender: TObject);
begin
label1.caption := 'irgendwas';   <--- Aber label1 gibt ja noch nicht deswegen kann ich das nicht erzeugen
end;

Jeder Timer soll auf diese Procedure zugreifen können aber nur label1 auf seiner eigenen form ändern.

[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?

[p80286]

ich versteh das Problem nicht.
a)Form erstellen (.Create)
b) Label auf Form erstellen
c) Timer auf Form erstellen mit .Enabled:=False Beim Form.onShow Timer.Enabled:=True; oder hab ich da etwas mißverstanden

Gruß
K-H

[jacky213]

OUHHHH ES LEBT!!!!!!!!!!

das geht schon mal, wie kann ich der erzeugten forn nun eine variable hinzufügen?
die formen sollen mit einem wert arbeiten, kannst du mir das auch noch aus dem ärmel schütteln

[DeddyH]

Das dürfte schwieriger werden. Machst Du das eigentlich nur zur Übung, oder soll das produktiv eingesetzt werden? Im letzteren Fall wäre es doch einfacher, das Formular samt aller Komponenten und Eigenschaften wie gewohnt in der IDE zu entwerfen und dann zur Laufzeit dynamisch zu erzeugen. Ansonsten darfst Du halt kein TForm nehmen, sondern eine davon abgeleitete Klasse mit einer Property für den gewünschten Wert.

[Der schöne Günther]

Falls du ganz unspektakulär einen Zahlenwert brauchst, nimm doch einfach die .Tag-Eigenschaft die sowieso jede Form hat

Nur wäre dabei der Lerneffekt sicher nicht besonders groß

[jacky213]

Also ich habe das jetzt so gelöst das ich noch ein label erzeugt habe und in dessem Namen habe
ich den wert geschrieben den ich brauche

jetzt mach ich noch eine eigenschaft rein um die fenster wieder zu schließen und bin dann durch

[Sir Rufo]

Gibt es einen besonderen Grund warum du das zweite Formular nicht mit dem Formulardesigner/IDE erstellst?

Irgendwie habe ich das Gefühl, dass du bei einem dynamischen Formular denkst, du musst zwangsweise alles dynamisch erstellen.