private procedure wmnchittest(var msg:twmnchittest); message wm_nchittest; procedure TForm1.wmnchittest(var msg:twmnchittest); begin inherited; if (htclient=msg.result) then msg.result:=htcaption; end; 我在站裏找到了這個 . .. . 但是這樣form上面的其他東西 . . .按了卻沒有反應 . . . 該怎麼辦?? http://www.mezone.net

这类程序不需要用到消息拦截，弊病太多。    试试以下方法，在窗体MOUSEDOWN事件种写就可以了，也可以在任意控件的MOUSEDOWN事件写，这种方法是利用向窗体发送wm_SysCommand消息完成的。    

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Const
  Sc_DragMove:LongInt=$F012;
begin
  if Button = mbLeft then//是否是鼠标左键
  begin
    ReleaseCapture;
    SendMessage(handle,wm_SysCommand,Sc_DragMove,0);
  end;
end;

謝謝大大~ 但是我不太明白 消息 是怎麼一回事, 上面那些我完全不明白,不知有沒有相關的教學或者可以指點一下, 謝謝大大€ http://www.mezone.net

Windows其实就是基于消息机制的，这个东东并无法三言两语就能说明白的，建议你找一本关于WINDOWS系统的书来阅读一下，对以后程序生涯还是有好处的，毕竟在WINDOWS时代。 SendMessage是消息发送函数，这个方法是当MOUSEDOWN时，向窗体发送拖动的消息来实现窗体移动的。