TForm in TabSheet laden

[dataspider]

Hi,

falls es etwas nützt, mal ein einfaches Code Schnipsel aus einem Altprojekt:

Delphi-Quellcode:

function ShowForm(AFormClass: TFormClass; AOwner: TComponent; AParent:
    TWinControl = nil; AImageIndex: Integer = -1): TForm;
Var
  APageControl: TcxPageControl;
begin
  Result := AFormClass.Create(AOwner);
  if AParent <> nil then
  begin
    if AParent is TcxPageControl then
    begin
      APageControl := (AParent as TcxPageControl);
      Result.ManualDock(AParent, nil, alClient);
      APageControl.ActivePageIndex := APageControl.PageCount - 1;
      if (AImageIndex > -1) then
        APageControl.ActivePage.ImageIndex := AImageIndex;
      Result.Visible := True;
    end
    else
    begin
      Result.BorderStyle := bsNone;
      Result.Align     := alClient;
      Result.Parent := AParent;
    end;
  end;
  Result.Show;
end;

Form erzeugen mit

  ShowForm(TDemo_Form, PCForm); und wie Sir Rufo schon erwähnt: Action := caFree; im OnClose des Formulares...

Frank

[rocksoft]

Hallo Frank,

auch so wird der OnClose nicht abgefeuert, eventuell liegt es daran das ich die Close function von de TcxPageControll benutze?

hab mal den code als rar gepackt für den fall das du es testen magst.

ein schönen WE an alle.

[dataspider]

Ich glaube, da fehlt mindestens 1 Unit (DEMO_Form).

Frank

[rocksoft]

Hats recht, hab die rar erneut hochgeladen

[Bummi]

Es wird beim schließen des Tabs nicht Close des Forms aufgerufen, sondern es wird direkt freigegeben/vernichtet.

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
begin
Demo_Form.Panel2.caption:='Close Form 1';
end;

Es würde sich anbieten hier mit Templates zu arbeiten, als Form1 bis Formx von eine Basisklasse abzuleiten, in der die gemeinsamen Methoden einmal implementiert werden.

[dataspider]

Hi,

Eine Variante:

OnCanClose vom PageControl...

Delphi-Quellcode:

procedure TDemo_Form.PCCanClose(Sender: TObject; var ACanClose: Boolean);
Var
  APage: TcxTabSheet;
begin
  APage := (Sender as TcxPageControl).ActivePage;
  if APage.ControlCount > 0 then
    if (APage.Controls[0] is TForm) then
      (APage.Controls[0] as TForm).Close;
end;

Frank

[rocksoft]

Vielen Dank an alle, werde es nachher mal testen, mal sehen was dabei raus kommt

[rocksoft]

Hallo

@dataspider: Genau das wars Super

Eine frage steht mich aber noch offen, wenn das Formular geschlossen und sein Speicher freigegeben, Sollte an sich nicht der gleiche speicher belegt sein wie beim Starten der Anwendung?

Arbeitssatz(Speicher) 8,480K
10x Formulare Öffnen und wieder schliessen
Arbeitssatz(Speicher) 8,520K

ist das normal oder es wird doch etwas nicht freigegeben?

[Bummi]

Du kannst ja mal
ReportMemoryLeaksOnShutDown=true; ins Create des Mainform mit aufnehmen, aber die Speichernutzung im Taskmanager ilft ohnehin nur bei der Erkennung grober Fehler, da der Memorymanager nicht immer alles direkt wieder freigibt, sondern auch recycelt.