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