请问:这个方法如何调用? ( 积分: 0 )

有一个方法,功能是利用API函数改善窗体界面的显示效果,本例是仅去除标题条,而保留窗体周边的边框.
方法定义如下:
procedure TForm1.Params(var Params:TCreateParams);
Begin
inherited CreateParams(Params);
if BorderStyle=bsNone then
with Params do
Style:=Style or WS_THICKFRAME;
end;
现在的问题是,我在窗体创建事件中如何调用这个方法呢.请高手指点.本人来时间短,分不多,请原谅啊.

覆盖TCustomFrom的CreateParams方法
TForm1 = class(TForm)
private
//你要做的就是实现他
procedure CreateParams(var Params: TCreateParams)
override;
public
{ Public declarations }
end;

请Rainstorey兄说仔细点,如何实现这个方法,我还没头绪.但通过这个实例,会加深我对面向对象机制的更好理解.

好歹 你也给Rainstorey, 大哥点分啊

兄弟,我的分不多,但既然兄台提出建议,我还是要给的.分不是主要问题,关键是想解决点问题,同时向大家学点经验.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
procedure CreateParams(var Params: TCreateParams)
override;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
BorderStyle:=bsNone;
with Params do
Style:=Style or WS_THICKFRAME;
end;

end.

感谢Rainstorey朋友,功能实现后窗体边框颜色变了,不知还能否恢复为原标题条的颜色.我的分不多,表示一点吧,算是对你付出的辛劳的补偿.
啊!!!如何给分呢,我还没找到方法,暂时为你存到,找到方法再给你吧.