почему не работает процедура?

[MyLastHit]

Здравствуйте. Пытаюсь убрать шапку в программе, пишу:

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ws_popup xor ws_dlgframe;
end;

процедуру обьявил в публичных, компилятор предупреждает:
Method 'CreateParams' hides virtual method of base type 'TCustomForm'
И как водится эфекта 0. Компиляции не мешает но шапка не прячется
В чем может быть дело?

[lowercase]

а можно полный код програмы привести или хотя бы до этой процедуры?
и что за шапку ты пытаешся убрать?

[MyLastHit]

Ёу. У меня листинг на 10 стр наверное как минимум. вот привожу все что до процедуры

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GIFImage, ExtCtrls, StdCtrls, eff_button, ShellApi,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm4 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Image2: TImage;
    {хрень всякая}
    Label1: TLabel;
    IdHTTP1: TIdHTTP;
    Image3: TImage;
  
  private
    { Private declarations }
  public
    procedure CreateParams(var Params: TCreateParams);
  end;

var
  Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}


procedure TForm4.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ws_popup xor ws_dlgframe;
end;

[DomiNick]

Забыли override;...

[lowercase]

у тебя просто получается так что этот мето перекрывает процеру из стандартных в модуле forms...точнее имеет такое же имя..
попробуй в секцию private кинуть или имя метода изменить... или перегрузку обявить.. хотя вряд ли перегрузка

[MyLastHit]

Забыли override;...

спасибо... теперь все ок