[求助]窗体的 on click 事件 - Delphi论坛

楼主

问题点数：0 回复次数：3

[求助]窗体的 on click 事件

我想让鼠标在窗体上任意一处点击时执行某项操作,是在窗体的 on click 事件中添加代码吗?

搜索更多相关主题的帖子: click　窗体　鼠标　代码　

第 2 楼

得分:0

对呀！！

我会拿出我全部的钱财，以保你衣食无忧。我会献出我所有的智慧，以助你一帆风顺。我会想到所有的笑语，以令你展眉开颜。我会挤出最长的时间，以使你终生幸福。　 [本人原创的结婚宣言]

第 3 楼

得分:0

窗体上有label或image时这些区域就不响应form的onckick

第 4 楼

得分:0

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);

begin //双击鼠标左键使屏幕最大化

if Msg.message =WM_LBUTTONDBLCLK then
begin
if DDclick=true then
begin

Msg.message =（WM_LBUTTONDBLCLK）这个消息你查一下就OK了用这个控件ApplicationEvents onmessage的事件写就OK