haitao:
我是通过mousemove事件来一点点移动的
[阅读: 509] 2006-09-07 08:36:28
下面这个是移动form自己的:
var
lastx,lasty:Integer;
procedure TFormDateTime.FormMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
lastx:=x;
lasty:=y;
end;
procedure TFormDateTime.FormMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if ssLeft in shift then
Begin
left:=left+x-lastx;
top:=top+y-lasty;
End;
end;