Form上有许多矩形区域,要使鼠标移到这些区域内时就beep,应该怎么做? 在窗体的OnMouseMove事件中判断鼠标,如果符合条件就beep. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin if PtInRect(Rect(0, 0, 10, 10), Point(X, Y)) then Beep;end; zswang(伴水)(伤心中) :谢谢! 关于查询 多个字段 是否空值 关于C++中的友元函数 如何在视频播放画面上显示文字?即叠加. 面试归来...大家给点意见!!! 有哪位大侠知道在Delphi中通过ODBC连接SYBASE数据库的方法? 在线等待,目录文件问题 怎么才可以让delphi和C++Builder很好的共存 谢谢mike678cn帮助俺解决问题,小小意思不成敬意,请进来领分. 我的DELPHI装在D盘。C盘格式化后,如何在现有的基础上重新在系统里确认DELPHI 一个数据查询的问题 请问:在使用Bitblt()时,如何使背景色透明? 用了XPMenu怎么改系统菜单的样式呢??
Y: Integer);
begin
if PtInRect(Rect(0, 0, 10, 10), Point(X, Y)) then Beep;
end;