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

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

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