llamar formulario al hacer click en un tabSheet del componente PageControl

[roman]

Pero tienen los eventos OnMouseDown y OnMouseUp. Con ellos lo puede hacer.

Por cierto, con 130 mensajes que llevas ya podrías tener un mejor uso del espacio. Este mensaje tiene cabida en el foro de OOP así que no hay necesidad de ponerlo en Varios.

Muevo el hilo.

// Saludos

[novato_erick]

Gracias roman

Seré mas cuidadoso en realizar las consultas en los foros apropiados.


Saludos

novato_erick

[novato_erick]

roman:

Volviendo al tema principal, ya logre llamara al formulario dentro del evento del TabSheet OnMouseDown, con este codigo:

Código Delphi [-]

procedure TfrmEmpleados.TabSheetDatos_GeneralesMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 frmDatos_Generales :=TfrmDAtos_Generales.Create(self);
 frmDatos_Generales.Parent :=TabSheetDatos_Generales;
 frmDatos_Generales.Show;
end;

Sin embargo, lo que se quiere es que la pestaña del PageControl ocurra el evento:

saludos y gracias por tu atención

novato_erick

[roman]

Y ¿por qué no lo preguntaste así desde un principio?

Por otro lado, si lo que quiere es mostrar el formulario dentro del TabSheet que se va a activar al hacer click en la pestaña, pienso que sería mejor usar el evento OnChange del PageControl. Ademas, creo que debería verificar primero si no está ya credo el formulario, de lo contrario lo creará e insertará múltiples veces.

// Saludos

[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