TcxTabSheet y cerrar

[[maeyanes]]

Puedes probar el evento OnCanClose de TcxPageControl

Código Delphi [-]
TcxPCCanCloseEvent = procedure(Sender: TObject; var ACanClose: Boolean) of object;

Este evento se dispara cada que haces click en el botón cerrar del TcxPageControl...

Entonces podrías tener algo como:

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

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

Espero te sirva...



Saludos...

[LordRF]

Hola maeyanes,

gracias por tu util respuesta, funciona perfectamente, lo unico es que no se me dispara el CloseQuery de la forma que se esta cerrando, hay alguna forma de que se dispare?

gracias y un saludo.

[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

[[maeyanes]]

Así es... con el close haces que se dispare el OnCloseQuery de la forma en cuestión...


Saludos...