pcplayer：
form 继承自一个 form，那个 form 继承自 TForm。那个 form 只不过有个统一的界面设计，另外就是一段拖动窗体的代码，以前一直工作得很好的。
[阅读: 610] 2008-04-27 10:05:03
procedure TFmBaseForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
{-----------------------------------------------------------------------
让 Form 可以被鼠标抓住跑。
--------------------------------------------------------------------------}
if self.WindowState = wsMaximized then Exit;
if (ssLeft in Shift) then
begin
ReleaseCapture;
SendMessage(self.Handle, WM_SYSCOMMAND, SC_MOVE + 1, 0);
end;
end;
| -ICP -IDC -ISP |