Anwendung mit 'Unterformularen' im Outlook-Stil

[APP]

Hallo,
ich habe dazu im Entwickler-Forum eine Antwort von Hagen Reddmann gefunden die mir sehr gut gefällt.

Allerdings möchte ich diese Funktion erweitern, heute sitze ich aber ziemlich auf der Leitung, vielleicht kann mir jemand helfen:

Delphi-Quellcode:

procedure TOutlookForm.CreateMyFormInplaced; 
var 
  NewForm: TForm; 
begin 
// erzeuge das neue Form 
  NewForm := TMySubForm.Create(Self); 
  NewForm.Visible := False; 
  NewForm.BorderStyle := bsNone; 
  NewForm.Align := alClient; 
  NewForm.Parent := OutlookPanel; 
  NewForm.Show; 
// tausche aktuelles Form mit dem neuen aus und zerstöre das 
// vorherig aktuelle Form 
  FCurrentForm.Free; 
  FCurrentForm := NewForm; 
end;

Ich habe verschiedene Form-Klassen erzeugt (TMyForm1, TMyForm2, TMyForm13,..) die ich nacheinander in das OutlookPanel einbetten möchte.

Nun möcht ich bei der Prozedur
procedure TOutlookForm.CreateMyFormInplaced(<Gewünsche Klasse>); die jeweilige Klasse meines gewünschten Formulars mitgeben, habe aber im Moment keinen Durchblick

2. Frage:
Das Formular wird mit NewForm := TMySubForm.Create(Self); erzeugt und mit   FCurrentForm.Free; zerstört, muß ich jetzt vor dem Beenden der Applikation NewForm auch noch freigeben oder NIL setzen?


Wie gesagt, heute

[APP]

Tja,
nachdem (zumindest bei uns im Ösiland) das Sommerhoch voll zugeschlagen hat,
und niemand mein Problem lösen wollte, habe ich es selbst gemacht

Delphi-Quellcode:

PROCEDURE TfMain.CreateMyFormInplaced(CONST aFormClass: TFormClass; CONST Alignment: TAlign);
VAR
  NewForm                          : Tform;
BEGIN
  IF Assigned(aFormClass) THEN
    BEGIN
      NewForm := aFormClass.Create(Self);
      NewForm.Visible := False;
      NewForm.BorderStyle := bsSingle;
      NewForm.Align := Alignment;
      NewForm.Parent := Panel1;
      NewForm.Show;
      FCurrentForm.Free;
      FCurrentForm := NewForm;
    END;
END;

der Aufruf erfolgt nun so:

Delphi-Quellcode:

PROCEDURE TfMain.Button2Click(Sender: TObject);
BEGIN
  CreateMyFormInplaced(TMySubForm1, alClient);
END;

Aber meine 2. Frage ist noch ausständig, wer weiß was?

[Phoenix]

Zitat von APP:

Aber meine 2. Frage ist noch ausständig, wer weiß was?

Freigeben kannst Du es nicht mehr. Das Objekt wurde ja anscheinend schon freigegeben, ein weiteres .Free würde also zu einer AccVio führen. Die Variable auf NIL zu setzen gehört sich zwar eigentlich, führt aber meist zu einem Compilierungshinweis von wegen zugewiesener Wert wird nie verwendet.

Es ist also nicht unbedingt notwendig, aber eigentlich ein guter bzw. sauberer Stil.

[Christian Seehase]

Moin Armin,

Du kannst Dein CurrentForm auch mit FreeAndNil(...) statt Free freigeben, dann wird intern automatisch := nil hinzugefügt.
Da Du als Owner der Formulare self (also TOutlookForm) angegeben hast, müsstest Du sie noch nicht einmal selber zerstören, dies würde automatisch beim Zerstören des Owners geschehen.
Um Resourcen zu sparen, ist es natürlich von Vorteil es doch selber zu machen.

[APP]

Alles klar,
Danke!