Ver Mensaje Individual
  #3  
Antiguo 11-04-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Podes hacerlo como comenta Al, que seria lo correcto y mas recomendable.

En el Form padre:

Código Delphi [-]
  procedure Privilegios; virtual; abstract;

La directiva virual permite que una clase que descienda del padre, pueda sobreescribir el metodo en cuestion, usando la directiva override

Por otro lado la directiva abstract sirve para que la clase en cuestion no deba implementar el metodo. Simplemente esta para "acordarse" de que los hijos deben implementarlo. Un ejemplo seria

Código Delphi [-]
interface

type

  TFormHijo = class(TFormPadre)
  private
    procedure Privilegios; override;
  end;

implementation

{ TFormHijo }

procedure TFormHijo.Privilegios
begin

end;

Si TFormHijo no declara y/o no provee una implementacion para el metodo Privilegios, el programa no compila

Aunque tambien simplemente en cada uno de tus proyectos declaras e implementas el metodo Privilegios y listo, aunque no estarias aprovechando todas las ventajas de la OO.

Saludos
Responder Con Cita