llamar formulario al hacer click en un tabSheet del componente PageControl

[novato_erick]

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,

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

[roman]

Empezado por novato_erick

como así no te entiendo.

Es decir, ¿qué pasa si doy clic por segunda vez en la pestaña?

// Saludos

[novato_erick]

roman tienes razón:

Acabo de probar haciendo click en las pestañas y si me vuelve abrir el formulario creandome mas formulario del mismo.

ahora mi pregunta es:

como evito eso?

//Saludos

[roman]

Tienes primero que asegurarte que la variable que usas para el formulario tiene valor nil al comienzo de la aplicación. Por ejemplo, en el evento OnCreate del formulario principal pones:

Código Delphi [-]
frmDatos_Generales := nil;

Y luego, al dar el clic pones:

Código Delphi [-]
if not Assigned(frmDatos_Generales) then
begin
  // Aquí el código que tienes
end;

// Saludos

[novato_erick]

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