Ver Mensaje Individual
  #6  
Antiguo 27-11-2007
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Reputación: 24
maeyanes Va por buen camino
También puedes usar la herencia visual...

Creas una forma que contenga el método LimpiarDatos:

Código Delphi [-]
TMiForma = class(TForm)
protected
  procedure LimpiarDatos; virtual;
end;

implementation

procedure TMiForma.LimpiarDatos;
begin
  // Lo que quieres hacer...
end;

Luego agregas esa unidad a tu proyecto y de ahí heredas esa forma... así puedes tener lo que deseas:

Código Delphi [-]
TClientesForm = class(TMiForma)
  edtClave: TEdit;
  edtNombre: TEdit;
  btnAceptar: TButton;
  btnCancelar: TButton;
  btnLimpiar: TButton;
  procedure btnLimpiarOnClick(Sender: TObject);
end;

implementation

procedure TClientesForm.btnLimpiarOnClick(Sender: TObject);
begin
  LimpiarDatos
end;

Saludos...
Responder Con Cita