[求助]窗体的 on click 事件
我想让鼠标在窗体上任意一处点击时执行某项操作,是在窗体的 on click 事件中添加代码吗?
我想让鼠标在窗体上任意一处点击时执行某项操作,是在窗体的 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