鼠标事件 动下鼠标,窗体就隐藏或者关闭。代码如何写啊 ?我要全代码!~跪求!~谢谢大家啊!`我是个新手! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 做一个鼠标钩子,再用一个timer检测 用window 消息捕捉鼠标移动事件 如果是屏保的话,你就在mousemove事件里写代码就行了,写close;当然还有键盘事件,keypress和keydown,还有鼠标点击事件等,可以不用钩子…… 给你个参考代码:procedure TfrmEdtBase.FormKeyPress(Sender: TObject; var Key: Char);begin if Key = #27 then Close; //如果按下ESC键关闭窗口end; mousemove事件里写代码就行了,写close; 直接写,我程序就运行不了了啊 !~ delphi发送数据到互联网服务器上,怎么做? 请高手指点,三层结构中,将ClientDataSet的数据更新回服务器时,遇到一个让我头痛的问题! 怎样给名为edit1的edit组件赋值,怎样操作?谢谢!!!!!!!!!! 加盟Delphi程序员 那里可以下载delphi 7 跪求 在Dll文件里如何编写Sql操作语句 为什么我制作的帮助文件不能显示中文呢?请高手指点以下,up有分! 条形码问题,请高手指点 case of出现错误? 如何才能把新建的窗体显示在PageControl中的TabSheet中? 如何获取dbgrid最后一行,在线等! delphi7 网页弹出打开保存对话框的问题
当然还有键盘事件,keypress和keydown,还有鼠标点击事件等,可以不用钩子……
procedure TfrmEdtBase.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close; //如果按下ESC键关闭窗口
end;
直接写,我程序就运行不了了啊 !~