5,939
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
王集鹄 2001-12-08
- 打赏
- 举报
嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻
sweihua 2001-12-08
- 打赏
- 举报
zswang(伴水)(伤心中) :谢谢！
王集鹄 2001-12-08
- 打赏
- 举报
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if PtInRect(Rect(0, 0, 10, 10), Point(X, Y)) then Beep;
end;
Y: Integer);
begin
if PtInRect(Rect(0, 0, 10, 10), Point(X, Y)) then Beep;
end;
taxi 2001-12-08
- 打赏
- 举报
在窗体的OnMouseMove事件中判断鼠标，如果符合条件就beep.
