如何实现点击窗体某一区域（不是任意一处）而拖动窗体？或是点击某个控件实现拖动？(40分)

我不想拖动标题栏。

[] 如下是点击Panel进行托动的，如果在某一区域，则就要判断鼠标的当前位置：
procedure TForm1.Panel1MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
//......................
// 此处加上代码，判断鼠标是否在你所需的位置
//......................
if Button<>mbRight then
begin
ReleaseCapture;
Form1.Perform(WM_SysCommand,$f017,0);
end;
end;

不错

接受答案了.