您所在位置：主题：问问鼠标滑轮
channelxp
[专家分：20] 发布于 2007-08-17 17:04:00
我的一个Form由于添加了很多控件,因此Form自动生成了一条滚动条,我设置了Form里的OnMouseWheel事件,代码如下:
procedure TUpdateForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
Handled := True;
end;
结果拨动滑轮,滚动条不会动,请问这段代码怎么写
procedure TUpdateForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
Handled := True;
end;
结果拨动滑轮,滚动条不会动,请问这段代码怎么写
