5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
diruser 2003-01-03
- 打赏
- 举报
楼上的
laihecongxi 2003-01-03
- 打赏
- 举报
private
procedure WndProc(var message: Tmessage);override;
.....
procedure TfrmIntro.WndProc(var message: Tmessage);
begin
if (message.Msg = WM_VSCROLL) and (message.WParamLo = SB_ENDSCROLL) then
showmessage('竖')
else
if (message.Msg = WM_HSCROLL) and (message.WParamLo = SB_ENDSCROLL) then
showmessage('横')
else
inherited WndProc(message);
end;
procedure WndProc(var message: Tmessage);override;
.....
procedure TfrmIntro.WndProc(var message: Tmessage);
begin
if (message.Msg = WM_VSCROLL) and (message.WParamLo = SB_ENDSCROLL) then
showmessage('竖')
else
if (message.Msg = WM_HSCROLL) and (message.WParamLo = SB_ENDSCROLL) then
showmessage('横')
else
inherited WndProc(message);
end;
ccc_wh 2003-01-03
- 打赏
- 举报
WM_VSCROLL :上下移动
WM_HSCROLL :左右移动
WM_HSCROLL :左右移动
ttxm 2003-01-03
- 打赏
- 举报
感谢各位！都很正确！加分！！！
