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