TForm in TabSheet laden

[Sir Rufo]

Zitat von 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;

Schau dir mal TForm.OnClose an. In dem Event setzt du einfach Action := caFree; und die Form wird aus dem Speicher genommen.

Zitat von 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

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

  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