TForm in TabSheet laden

[rocksoft]

Hallo Zusammen,

ich habe ein problem mit der freigabe von den geladenen Forms in de TabSheets, wie kann ich den Tab und die Form freigeben? Ich kann zwar die Tabs schliesse aber der speicher wird nicht freigegeben.

Besten Dank für die hilfe stellung.

Code:

procedure TDemo_Form.Button1Click(Sender: TObject);
begin
  CallForm(TForm1);
end;

procedure TDemo_Form.Button2Click(Sender: TObject);
begin
  CallForm(TForm2);
end;

procedure TDemo_Form.Button3Click(Sender: TObject);
begin
with TcxPageControlAccess(PC) do
    if DoCanClose then
      DoClose;
end;


procedure TDemo_Form.CallForm(aForm: TFormClass);
var
  newTabClass: TFormClass;
  TabSheet: TcxTabSheet;
begin
  newTabClass := aForm;
  if Assigned(newTabClass) then
  begin
    TabSheet := TcxTabSheet.Create(PC);
    TabSheet.PageControl := PC;
    PCForm := newTabClass.Create(self);
    PCForm.BorderStyle := bsNone;
    PCForm.Parent := TabSheet;
    PCForm.Align := alClient;
    PCForm.Show;
    tabSheet.Caption := PCForm.Caption;
    tabSheet.Name := PCForm.Name;
    PC.ActivePageIndex := PC.PageCount - 1;
    Panel2.Caption := tabSheet.name;
  end;
end;

[DeddyH]

Ich kenne mich mit DevExpress (darum scheint es sich aufgrund der Klassennamen ja zu handeln) leider nicht aus, aber wenn Du beim Erstellen des Formulars nicht das DemoForm, sondern das gerade erzeugte TabSheet als Owner angibst, sollte das Formular freigegeben werden, sobald das zugehörige TabSheet freigegeben wird, und das kannst Du ja beim Schließen desselben tun.

[himitsu]

Da die Owner gesetzt wurden, müssten beim Schließen der Form eigentlich alle erstellten Controls automatisch wieder freigegeben werden.

Nur bei der Funktion von Button3Click bin ich noch etwas skeptisch. (sieht eigenartig aus)

Delphi-Quellcode:

procedure TDemo_Form.CallForm(aForm: TFormClass);
var
  //newTabClass: TFormClass;  // warum doppelt?
  TabSheet: TcxTabSheet;
begin
  if Assigned(aForm) then  // hier wäre wohl eine Assertion passender, oder kommt nil so oft vor?
  begin
    TabSheet := TcxTabSheet.Create(PC);
    TabSheet.PageControl := PC;
    PCForm := aForm.Create(TabSheet);  // ich würde hier nicht die Demo_Form als Owner nehmen
    PCForm.BorderStyle := bsNone;
    PCForm.Parent := TabSheet;
    PCForm.Align := alClient;
    PCForm.Show;
    tabSheet.Caption := PCForm.Caption;
    tabSheet.Name := PCForm.Name;  // Name muß man nicht unbedingt setzen, außer man pfuscht mit FindControl rum
    PC.ActivePage := TabSheet;  // statt zu irgendeinen Index kann man auch direkt zum Gewollten hinblättern
    Panel2.Caption := TabSheet.Name;
  end;
end;

[rocksoft]

Hallo DeddyH & Himitsu,

danke für die verbesserung vorschläge :)

leider reagiert beim schließen von den Tab immer noch nicht der Ereignis OnClose

// Name muß man nicht unbedingt setzen, außer man pfuscht mit FindControl rum
das war auch die idee wenn es nicht anders geht

Das mit den Button 3, habe ich aus den forum von Devexpress, habe aber die quelle gerade nicht zur Hand

//edit
ich habs fast :)
procedure TDemo_Form.PCCanClose(Sender: TObject; var ACanClose: Boolean);
begin
freeandnil(PCForm) // so feuer schon mal den OnHide
end;

[dataspider]

Ich mache mir gar nicht so viel Stress,

wenn du das Formular mit ManualDock auf das PageControl dockst, geht das bei TcxPageControl automatisch.
Also das Erstellen eines Tabs und das Freigeben des Tabs bei Schliessen des Formulares.

Frank

[Sir Rufo]

Zitat:

Zitat von rocksoft (Beitrag 1193463)

Hallo DeddyH & Himitsu,

danke für die verbesserung vorschläge :)

leider reagiert beim schließen von den Tab immer noch nicht der Ereignis OnClose

// Name muß man nicht unbedingt setzen, außer man pfuscht mit FindControl rum
das war auch die idee wenn es nicht anders geht

Das mit den Button 3, habe ich aus den forum von Devexpress, habe aber die quelle gerade nicht zur Hand

//edit
ich habs fast :)
procedure TDemo_Form.PCCanClose(Sender: TObject; var ACanClose: Boolean);
begin
freeandnil(PCForm) // so feuer schon mal den OnHide
end;

Schau dir mal TForm.OnClose an. In dem Event setzt du einfach

Delphi-Quellcode:

Action := caFree;

und die Form wird aus dem Speicher genommen.

Zitat:

Zitat von dataspider (Beitrag 1193491)

Ich mache mir gar nicht so viel Stress,

wenn du das Formular mit ManualDock auf das PageControl dockst, geht das bei TcxPageControl automatisch.
Also das Erstellen eines Tabs und das Freigeben des Tabs bei Schliessen des Formulares.

Frank

:thumb: und das in Verbindung mit meinem Senf und der Speicher ist schick :)

[rocksoft]

Hallo
@dataspider
ich werde es mal testen mit den ManualDock

@Sir Rufo
Das mit den TForm.OnClose ist mir schon Klar, wie ich sehe hatte den falschen code Kopiert:) und feuert nur die TForm1.FormHide.

werde mal weiter testen.

vielen Dank an euch beiden

[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

Delphi-Quellcode:

  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

Delphi-Quellcode:

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.

[rocksoft]

Hallo Bummi,

Danke für die Antwort, werde es mal testen :)

[rocksoft]

@ himitsu

noch eine letzte frage :)

Code:

tabSheet.Name := PCForm.Name; // Name muß man nicht unbedingt setzen, außer man pfuscht mit FindControl rum

wie kann ich den festelleten ob die Form schon mal geladen würde um dies zu verhindern ohne FindControl zu benutzen?

mercy