TcxTabSheet y cerrar

[LordRF]

Hola,

me parece que tengo la solucion

Código Delphi [-]
procedure TForm1.cxPageControl1CanClose(Sender: TObject;
  var ACanClose: Boolean);
  var
  ATabSheet: TcxTabSheet;
  I: Integer;

begin
  ATabSheet := cxPageControl1.ActivePage;
 for I := 0 to ATabSheet.ControlCount -1 do
    if ATabSheet.Controls[i] is TForm then
    begin
      TForm(ATabSheet.Controls[i]).close;
      ACanClose := True;
      Break
    end
end;

gracias y un saludo
Robert