Bueno respondiéndome a mi propio enredo aquí tengo la solución:
Este era mi código anterior:
Código Delphi
[-]
procedure TfrmConsultarEmpleado.btnmodificarClick(Sender: TObject);
begin
if frmEmpleados = nil then
begin
frmEmpleados := TfrmEmpleados.Create(Self);
frmEmpleados.Caption := ' Modificar Empleado';
PageControlVisible;
frmEmpleados.lblTitulo.Caption := 'Modificar Empleado';
frmPrincipal.pestana(frmEmpleados, '');
end;
end;
Este es la modificación:
Código Delphi
[-]
procedure TfrmConsultarEmpleado.btnmodificarClick(Sender: TObject);
begin
if frmEmpleados = nil then
begin
frmEmpleados := TfrmEmpleados.Create(PageControlCloseButton);
frmEmpleados.Caption := ' Modificar Empleado';
PageControlVisible;
frmEmpleados.lblTitulo.Caption := 'Modificar Empleado';
frmPrincipal.pestana(frmEmpleados, '');
end;
end;
Saludos
novato_erick