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