¿Cómo evitar un warning por sobrecargar un constructor?

[vejerf]

Hola a tod@s:
Para realizar un form he sobrecargado su constructor porque lo he visto necesario. Al compilar y ejecutar el programa no tengo ningún problema derivado de eso, pero me aparece el siguiente warning:
" W1010 Method 'Create' hides virtual method of base type 'TCustomForm' ".
¿Alguien sabe por qué sale este warning y como evitarlo para limpiar el código?

Muchas gracias a tod@s!!!

[[Lepe]]

Te está advirtiendo de que al construir el objeto con tu constructor, se puede perder el código escrito en sus antecesores (porque usan el constructor original).

También ocurre si alguien hereda de tu componente.

Dentro de tu constructor, deberías llamar al constructor original con:

Código Delphi [-]
constructor MiConstructorSobrecargado(...);
begin
  inherited ConstructorOriginal(parametros que lleve);
end;

Creo recordar una directiva (aunque la he usado pocas veces) que se llama reintroduce; (pero creo que este no es el caso, mira en la ayuda de delphi).

Otra forma sería deshabilitar las advertencias con directivas en la zona public de tu componente:

Código Delphi [-]
  public
 {$warning off}
  constructor MiConstructor(....);
 {$warning on}
 end;

(Como hablo de memoria, revisa la ayuda).

Saludos

[vejerf]

La definición del constructor que hago es la siguiente:

Código Delphi [-]
constructor TForm.create(AOwner: TComponent; N: Integer);
begin
  inherited Create(AOwner);
  //Más código
end;

Así que al constructor original sí que lo llamo. Voy a revisar el resto de lo que me comentas en la ayuda...

Muchas gracias Lepe!

[Ñuño Martínez]

Debes utilizar el modificador "OVERRIDE" en la declaración de la clase. De lo contrario, el compilador asume que el nuevo constructor no debe sustituir al anterior, sino convivir con él.

Código Delphi [-]
MiForm = CLASS (TForm)
PUBLIC
  CONSTRUCTOR Create (...); OVERRIDE;
  ...
END;

No es recomendable utilizar "{$WARNING OFF}", ya que pueden indicar errores en el diseño.

[Edito] Me he dado cuenta de que has añadido un nuevo parámetro al constructor. En ese caso el modificador que has de utilizar es "OVERLOAD", de forma que el compilador sepa que no debe sustituir al anterior sino convivir con él.

Código Delphi [-]
MiForm = CLASS (TForm)
PUBLIC
  CONSTRUCTOR Create (...); OVERLOAD;
  ...
END;

[[Lepe]]

ya que nos metemos en materia, ¿realmente se neceista ese parámetro "N" para crear el Form ? Yo diría que no, porque un TForm se construye sin necesidad de ese parámetro, entonces, lo que "se debería hacer" es crear una propiedad a tal efecto:

Código Delphi [-]
Type TmiForm = class (Tform);
 private
    FNumero:integer;
    procedure SetNumero(Value:Integer);
    function GetNumero:integer;
 public
   constructor Create(AOwner:Tcomponent);
   property MiNumero : integer read GetNumero write SetNumero;
 end;

implementation

procedure TmiForm.SetNumero(Value:Integer);
begin
  if FNumero <> Value then
  begin 
     FNumero := Value; // variable privada donde guardamos el valor.
    // hacer otras cosas cuando el usuario haga: miform.MiNumero := 3;
  end;
end;     


function TmiForm.GetNumero:integer;
begin
  Result := FNumero; 
  // resultado cuando el usuario diga ShowMessage(inttostr(miform.MiNumero)); 
// es decir, al leer la propiedad.
end;

Las normas de OOP es lo que dice: "si no se requiere estrictamente para crear el objeto, no utilices en el constructor".

Ñuño: Creo recordar que si no pone overload, no compilará. Si lo pone advierte de ese detalle, por tanto solo queda deshabilitar las advertencias, ya que sabemos lo que hacemos

Saludos

[vejerf]

Yo la verdad es q no soy un experto programador de Delphi ni mucho menos. He ido aprendiendo conforme me han pedido requisitos y me he encontrado con dificultades. Una de esas dificultades fue la de usar un mismo formulario para llamadas de distinto tipo. Ese 'N' que paso como parámetro es simplemente un indice que me indica en un array que objeto quiero representar en ese form. Esta fue simplemente una solución que encontré en ese momento a mi problema, aunque no quiere decir que fuese la más correcta. Lo que propones de crear una propiedad me gusta Lepe... lo tendré en cuenta