Question

delphi无边框窗体的移动，怎样实现，希望能够详细点

Answer 1

有个鼠标按下事件，移动事件，和鼠标松开事件

Answer 2

在控件的MouseDown事件中加入
if (ssleft in Shift) then
begin ReleaseCapture; Perform(WM_syscommand, $F012, 0);
end;
如form1：
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (ssleft in Shift) then
begin ReleaseCapture; Perform(WM_syscommand, $F012, 0);
end;
end;
end.

追问

控件是delphi7中自带的么，还是需要安装啊

追答

procedure TForm1.MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
//if (y0) then begin
ReleaseCapture;
Perform(WM_SYSCOMMAND,$f012,0);
//end;
end;
不用安装啊，这种很简单的啊