Ver Mensaje Individual
  #1  
Antiguo 16-10-2011
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 396
Reputación: 14
novato_erick Va por buen camino
varias paginas con PageControl

Hola a Todos

Agradezco enormemente a las personas que siempre colaboran en evacuar mis dudas al utilizar componentes para lograr comportamientos deseados.

Este es comportamiento es algo que me gustaría modificar en mi aplicación.

Por ejemplo todos han visto el comportamiento parecido los exploradores actuales de internet puedes ver diferentes paginas. bueno algo parecido deseo.

Ya tengo formularios creados de mi proyecto solo que estoy haciendo lo siguiente:

Código Delphi [-]
procedure TfrPriincipal.acrearExecute(Sender: TObject);

var
Page : TTabSheet;

begin
 FrmCliente := TfrmCliente.Create(FrmCliente);
  Try
    FrmCliente.Parent := frPriincipal.PageControl1;
    FrmCliente.Caption := 'Clientes';
    FrmCliente.show;
  Finally
   If frPriincipal.PageControl1.ActivePage.Caption = ' ' then
    Begin
      Page := TTabSheet.Create(PageControl1);
      Page.PageControl := PageControl1;
      Page.Caption := 'Cliente';
      Page.Free;
    end;
  end;

end;

los componente que necesito ya están en el formulario y el PageControl será como el padre de mi formulario principal (Si me equivoco de esta forma de trabajar corrijan a este novato). ahora lo que deseo es que cuando llamo al formulario aparezca un Tabsheet con el caption del formulario y en el se pueda cerrar y liberar el formulario.

Saludos


novato_erick
Responder Con Cita