Frams in Delphi

[Hansa]

Zitat von fredi:

procedure TEingabeForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree
end;
jetzt würde mich noch interessieren ob die Form aus dem Speicher draussen ist oder nicht.

Die ist raus ! Hat mich selbst gewundert, daß ein Wort dafür reicht. Zum Hauptthema : wieder Fall für Objektablage/Repository. Hierarchie der Forms aufbauen und immer erweitern. Ich habe das so gemacht :

1. Form : handelt nur Tastatur ab. Esc Form schließen, Return zum nächsten Feld, Zahlen rechtsbündig usw. Das Ding schiebe ich ins Repository.

2. Form : Die soll noch ein paar Edits besitzen und ich nehme sie aus dem Repository. Neu -> andere -> 1. Form aber inherited (unten die Radiogroup) !!

Lege ich jetzt meine Edits auf diese Form, sonst nichts, dann haben die genau die Eigenschaften wie in der 1. Form eingeführt, z.B. mit Return ins nächste Feld. Tja und das mit dem caFree ? Das wurde gleich miteingebaut. Und zwar in die 1. Form. Bereits da steht im FormClose : Action := caFree;

In der zweiten steht lediglich eventuell inherited, sofern ich da noch was anderes im FormClose tun muß. Ansonsten wird das FormClose der 1. Form ausgeführt und somit auf jeden Fall das caFree. Man darf nur das eventuell automatisch eingefügte Wort "inherited" nicht löschen. 8)