盒子论坛 v2.1

我想重载组件的CreateParams，可是老是提示代码有误，不能通过，为什么？该如何写才好？

完整代码如下：

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListView1: TListView;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Tlistview1.CreateParams(var Params: TCreateParams);override;
begin
inherited CreateParams(Params);
Params.Style := Params.Style and not WS_VSCROLL;
end;

end.
----------------------------------------------
秋风清　秋月明，几上闲琴黯生尘。
夜来忽忆少年事，陌上柳绿草青青。
相逢一笑言未语，携手相看自倾心。
二十二载云烟里，云含风韵烟含情。
风尘渺落风霜浸，但闻长空雁长鸣。
姿容如花颜如玉，只在平生梦里寻。
秋风清　秋月明，秋灯秋雨愁煞人。
天涯路远人何在，午夜梦回空扰惊。

作者：

dfw@159095 (赵抄)	★☆☆☆☆	-
	普通会员

2004/4/20 7:51:57

1楼：

1、新建组建，从TListView派生，在派生的组建里写你的代码；
2、注册你的新组建，在Form里使用你的新组建。
----------------------------------------------
我是男儿当自强

作者：

hbqckzj (醉里寻欢)	★☆☆☆☆	-
	盒子活跃会员

2004/4/20 10:14:59

2楼：

谢了，俺试试先！

再请问一下，一定要新建组件吗？如果不新建组件，直接在程序里用代码override不行吗？
----------------------------------------------
秋风清　秋月明，几上闲琴黯生尘。
夜来忽忆少年事，陌上柳绿草青青。
相逢一笑言未语，携手相看自倾心。
二十二载云烟里，云含风韵烟含情。
风尘渺落风霜浸，但闻长空雁长鸣。
姿容如花颜如玉，只在平生梦里寻。
秋风清　秋月明，秋灯秋雨愁煞人。
天涯路远人何在，午夜梦回空扰惊。

作者：

dfw@159095 (赵抄)	★☆☆☆☆	-
	普通会员

2004/4/20 12:17:49

3楼：

不行。
----------------------------------------------
我是男儿当自强

作者：

hbqckzj (醉里寻欢)	★☆☆☆☆	-
	盒子活跃会员

2004/4/21 8:08:17

4楼：

多谢赵抄（照抄？^_^）兄热心解答，此问题我已用另外的方法解决！

不过另有个问题希望指点，我在自定组件时的代码如下：

unit listview1;

interface

uses
  SysUtils, Classes, Controls, ComCtrls;

type
  tlistview1 = class(TListView)
  private
    { Private declarations }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('KANG', [tlistview1]);
end;

procedure Tlistview1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  with Params do
    Style := Style and not (WS_HSCROLL or WS_VSCROLL);
end;

end.

安装时提示
undeclared identifier:'WS_HSCROLL'
undeclared identifier:'WS_VSCROLL'
难道'WS_HSCROLL'和'WS_VSCROLL'这两个还需要预先声明或定义吗？如何解决？谢谢！
----------------------------------------------
秋风清　秋月明，几上闲琴黯生尘。
夜来忽忆少年事，陌上柳绿草青青。
相逢一笑言未语，携手相看自倾心。
二十二载云烟里，云含风韵烟含情。
风尘渺落风霜浸，但闻长空雁长鸣。
姿容如花颜如玉，只在平生梦里寻。
秋风清　秋月明，秋灯秋雨愁煞人。
天涯路远人何在，午夜梦回空扰惊。

作者：

knives (knives)	★☆☆☆☆	-
	普通会员

2004/4/21 9:07:47

5楼：

在implementation下面
加上use 'WS_HSCROLL'和'WS_VSCROLL'所属的类

----------------------------------------------
-

作者：

hbqckzj (醉里寻欢)	★☆☆☆☆	-
	盒子活跃会员

2004/4/22 7:13:42

6楼：

多谢楼上两位，问题已经解决！我在uses后加上windows就OK了！

----------------------------------------------
秋风清　秋月明，几上闲琴黯生尘。
夜来忽忆少年事，陌上柳绿草青青。
相逢一笑言未语，携手相看自倾心。
二十二载云烟里，云含风韵烟含情。
风尘渺落风霜浸，但闻长空雁长鸣。
姿容如花颜如玉，只在平生梦里寻。
秋风清　秋月明，秋灯秋雨愁煞人。
天涯路远人何在，午夜梦回空扰惊。

信息

登陆以后才能回复