[
] 如下是点击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;