Показать сообщение отдельно
  #4  
Старый 19.07.2007, 19:33
Аватар для <<D>>
<<D>> <<D>> вне форума
Активный
 
Регистрация: 06.05.2007
Адрес: ГДЕ ТО В СОЛНЕЧНОЙ СИСТЕМЕ
Сообщения: 207
Репутация: 15
По умолчанию

Код:

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

И всё, теперь запускай прогу и перетаскуй себе на здоровье.
__________________
Кому я должен - всем прощаю!!!!
Ответить с цитированием