TForm in TabSheet laden

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von rocksoft · begonnen am 28. Nov 2012 · letzter Beitrag vom 12. Dez 2012

Vorheriger Beitrag

Nächster Beitrag

dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.350 Beiträge

Delphi 11 Alexandria

#13

AW: TForm in TabSheet laden

2. Dez 2012, 13:24

Hi,

Eine Variante:

OnCanClose vom PageControl...

markieren

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