Ver Mensaje Individual
  #2  
Antiguo 18-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
Solucion

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); (* aqui remplazo mi parametro Sef por el Nombre del componente... 
                                                                    tratare de documentarme el porque y mandare la respuesta mas adelante *)
    frmEmpleados.Caption := '  Modificar Empleado';
    PageControlVisible;
    frmEmpleados.lblTitulo.Caption := 'Modificar Empleado';
    frmPrincipal.pestana(frmEmpleados, '');
  end;
end;


Saludos


novato_erick

Última edición por Casimiro Notevi fecha: 18-09-2012 a las 20:51:16.
Responder Con Cita