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

Delphi-Quellcode:

.Enabled:=False

Beim Form.onShow

Delphi-Quellcode:

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 :D

[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 :-D

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 :D

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.

[jacky213]

Also ich habe es mit MDI versucht aber das haut einfach nicht so gut hin. Da musste ich zuviel umschreiben
und ändern und da hatte ich gelinde gesagt keine lust zu. Diese ganze Fragerei hat schon Sinn den ich verbessere
den Code eines Lieferservice Programms welches ich für einen Kollegen schrieb welcher seit ca. einem Jahr einen Lieferservice Betreibt. Mich nervte die Art wie dieser seine Bestellungen aufnahm und des wegen habe ich mich dazu entschlossen ihm ein Passendes Programm zu schenken.

Letzte Frage: Werden Formen welche ich zu Laufzeit erzeugt habe automatisch beim schließen Freigegeben oder muss ich das auch noch selbst tun? Wenn ja wie ermittel ich die Form welche ich geschlossen habe um sie richtig freizugeben.

Hier ein paar Bilder von meinem Programm:

[Sir Rufo]

Ich weiß nicht was dieses dynamische designen per code mit MDI zu tun haben soll, aber du denkst da viel zu kompliziert.

Und für die Speicherverwaltung der Form-Objekte kannst du über den Owner dieses delegieren.

[jacky213]

Hier ein paar Bilder zum Programm:

http://www.imagebanana.com/view/f1nky2n9/1.png
http://www.imagebanana.com/view/yab16pcu/2.png
http://www.imagebanana.com/view/h5l5ccsa/3.png

[Sir Rufo]

Die Bilder hättest (und solltest) du auch hier direkt anhängen können.

Trotz der Bilder sehe ich nicht die Notwendigkeit diese Form per code zu designen.
Einfach ein neues Formular (TMyDollForm) anlegen, die Controls drauf klatschen und dann im Programm einfach

Delphi-Quellcode:

with TMyDollForm.Create( self ) do
  begin
    Parent := Form2; // auch unglücklich aber egal
    BestellZeit_Label.Caption := ...
    Besteller_Label.Caption := ...
    Show;
  end;

Um eine Form beim Schließen auch in das DatenNirwana zu schicken einfach im TForm.OnClose Event

Delphi-Quellcode:

Action := caFree;

schreiben.

Von außen angestossen benutzt man das freundliche TForm.Release

[jacky213]

Wenn du das was ich jetzt mache Kompliziert findest dann solltest du den Code mal vorher sehen :D
Danke für den Ansatz, ich werde mich da mal hinter klemmen.

[Bummi]

Die ganz normale Entwicklung, je mehr Erfahrung Du sammelst desto weniger Code benötigst Du um ans Ziel zu kommen.:)

[jacky213]

So ich habs, von ca. 200 Zeilen auf 15 ich danke euch super :D
(Ja ich weiß, wofür zur Hölle habe ich 200 Zeilen gebraucht xD)