Ver Mensaje Individual
  #6  
Antiguo 06-09-2012
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 396
Reputación: 14
novato_erick Va por buen camino
roman mira este código:
Código Delphi [-]

procedure TfrmEmpleados.pgcDatos_EmpleadoMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 if pgcDatos_Empleado.PageCount >0 then
  begin
  frmDatos_Generales :=TfrmDAtos_Generales.Create(self);
  frmDatos_Generales.Parent :=pgcDatos_Empleado.pages[0];
  frmDatos_Generales.Show;
  end;

   if pgcDatos_Empleado.PageCount >= 1 then
     begin
  frmNivel_Educativo :=TfrmNivel_Educativo.Create(self);
  frmNivel_Educativo.Parent :=pgcDatos_Empleado.pages[1];
  frmNivel_Educativo.Show;
  end;

end;

con bucle if, creo que logre el comportamiento pero acabo de leer lo que me sugieres con el evento OnChange,
Cita:
roman dice:
Ademas, creo que debería verificar primero si no está ya credo el formulario, de lo contrario lo creará e insertará múltiples veces
como así no te entiendo.


saludos
Responder Con Cita