5,387
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
aiirii 2004-04-20
- 打赏
- 举报
不是也有個 WheelDelta 嗎, 你檢查你要的參數就可
aiirii 2004-04-20
- 打赏
- 举报
>>这个事件是如何触发呢？
window 自動引發的
window 自動引發的
sdqhlyf 2004-04-20
- 打赏
- 举报
可是窗体虽有这个事作，但里面的参数不一样呀，我该如何是好？
这个事件是如何触发呢？
这个事件是如何触发呢？
xzhifei 2004-04-20
- 打赏
- 举报
你根据下面的示例改吧：
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.WMMouseWheel(var Message: TWMMouseWheel);
begin
case Message.WheelDelta of
-120:
caption := '向下';
120:
caption := '向上';
end;
end;
end.
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.WMMouseWheel(var Message: TWMMouseWheel);
begin
case Message.WheelDelta of
-120:
caption := '向下';
120:
caption := '向上';
end;
end;
end.
