TForm in TabSheet laden

[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.

[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