Ver Mensaje Individual
  #10  
Antiguo 06-09-2012
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 397
Reputación: 16
novato_erick Va por buen camino
Gracias roman:

aquì esta el codigo completo en el Evento OnMouseDown del PageControl:
Código Delphi [-]
procedure TfrmEmpleados.pgcDatos_EmpleadoMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  begin
    if pgcDatos_Empleado.PageCount >0 then
       begin
          if not Assigned(frmDatos_Generales) then
            begin
              frmDatos_Generales :=TfrmDAtos_Generales.Create(self);
              frmDatos_Generales.Parent :=pgcDatos_Empleado.pages[0];
              frmDatos_Generales.Show;
            end;
       end;
   if pgcDatos_Empleado.PageCount >= 1 then
     begin
     if not Assigned(frmNivel_Educativo) then
      begin
        frmNivel_Educativo :=TfrmNivel_Educativo.Create(self);
        frmNivel_Educativo.Parent :=pgcDatos_Empleado.pages[1];
        frmNivel_Educativo.Show;
      end;
     end;
  end;

En teoria funciona con los dos (2) formularios y son 5 en total que voy a llamar en el mismo ciclo. mi pregunta es roman estoy en lo correcto en la forma que lo hice?

Gracias por tu tiempo

novato_erick
Responder Con Cita