为什么实现窗体移动时，窗体上的button的click事件可以触发，而窗体上的image或SpeedButton的Click事件就不响应？

Question

下面程序能够实现窗体移动和窗体上的button的click事件，但窗体上的image或SpeedButton的Click事件就不响应？image或SpeedButton控件就像Enable已经为false一样，点击没反应，为什么？
procedure MoveForm(var M:TWMNCHitTest);message wm_NCHitTest;procedure TForm1.MoveForm(var M:TWMNCHitTest);
begin
inherited;
 if M.Result = HTCLIENT then begin
 M.Result :=HTCAPTION;
 end;
end;

Answer 1

因为 speedButton 和 Image 控件没有窗口句柄，鼠标的消息被其父窗口拦截了。

Answer 2

M.Result :=HTCAPTION;
因为你把整个客户区变成了窗体标题栏，你说的两个控件在标题栏里无法触发。
给你一个简单的解决办法：增加一个panel控件，将你的speedButton 和 Image 放在里面就成功了！