Cita:
Empezado por Moises22
Me da el mismo fallo que a alguien que lo pregunta en el mismo hilo, es decir, lo pongo en la parte de implementation del programa y me da el siguiente error
Method 'CreateParams' hides virtual method of base type 'TCustomForm', estoy utilizando Delphi 6. He puesto delante como se indica en el foro la palabra override de esta manera
dandome el siguiente error ahora [Error] administracionvvs.pas(38): Declaration expected but identifier 'override' found.Si alguien me puede ayudar o agradeceria muchisimo!!!!.
|
Simplemente te dice que estas redefiniendo un método de un ancestro, en lugar de sobreescribirlo. Lo solucionas poniendo la directiva
override luego de la definición:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl;
type
TForm1 = class(TForm)
private
protected
procedure CreateParams(var Params: TCreateParams); override;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;
end.
Por otro lado, te recomiendo amigarte con la ayuda de delphi, que es exelente y si escribes override y presionas la tecla F1, te mostrará claramente como debes usar esta directiva.
Saludos!