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