Ver Mensaje Individual
  #1  
Antiguo 23-03-2007
Avatar de LordRF
LordRF LordRF is offline
Miembro
 
Registrado: feb 2007
Posts: 71
Reputación: 18
LordRF Va por buen camino
TcxTabSheet y cerrar

Hola a todos,

tengo un pequenno problemilla, estoy experimentando para ensennar las forms en Tabsheet, creo el Tabsheet le meto un form hasta hay bien.

Bueno ahora quiero cerrar ese tabsheet, como lo hago para que primero me cierre la form antes de cerrar el tab?

espero que se entienda lo que quiero decir.

p.s utilizo el Pagecontroll de devexpress

Código Delphi [-]
procedure TForm1.Button6Click(Sender: TObject);
var
  MyTabSheet: TcxTabSheet;
  newFormClass: TFormClass;
  newForm:      TForm;
begin
  MyTabSheet := TcxTabSheet.Create(Form1);
  MyTabSheet.Parent := cxPageControl1;
  MytabSheet.PageControl := cxPageControl1;
  MytabSheet.Caption := 'Test';

  newFormClass := TForm2;
    if Assigned(newFormClass) then
    begin
      newForm := newFormClass.Create(self);
      newForm.BorderStyle := bsNone;
      newForm.Parent := cxTabSheet2;
      newForm.Align := alClient;
      newForm.Show;
    end;
end;

gracias y un saludo
Robert
Responder Con Cita