Einzelnen Beitrag anzeigen

Benutzerbild von dataspider
dataspider
Online

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.351 Beiträge
 
Delphi 11 Alexandria
 
#13

AW: TForm in TabSheet laden

  Alt 2. Dez 2012, 14:24
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
Frank Reim
  Mit Zitat antworten Zitat