Код:
var
xx,yy:integer;
bool:boolean;
...
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
bool:=true;
xx:=x;
yy:=y;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if bool then
begin
form1.left:=form1.left+x-xx;
form1.top:=form1.top+y-yy;
end;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
bool:=false;
end;
Теперь на том объекте, с помощью которого ты собираешься перетаскивать окно, в Events сделай так:
MouseDown=FormMouseDown
MouseMove=FormMouseMove
MouseUp=FormMouseUp
И всё, теперь запускай прогу и перетаскуй себе на здоровье.
__________________
Кому я должен - всем прощаю!!!!
|