窗口拖动问题!
type
TForm1 = class(TForm)
......
private
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
end;
函数体:
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited; { call the inherited message handler }
if M.Result = htClient then { is the click in the client area? }
M.Result := htCaption; { if so, make Windows think it's }
{ on the caption bar. }
end;
这样能实现不规则窗口的拖动,但是在窗口用户区内点击就能拖动窗口,
但是里面的image_onclick事件都不好使怎么办?
若是只想让他在点击自己做的标题栏时拖动,怎么办??
或者是