Перетягивание формы вручную

[_PROGRAMM_]

Добрый день. У меня есть форма c BorderStyle:=None, мне нужно сделать возможность перетягивания формы за черную полоску вверху(Rectangle(0,0,Width,10)). Вроде бы все правильно, но форма летает из стороны в сторону. Прошу делать приоритет на этот способ(т.к. я пробовал много других), а потом уже советовать что-то другое.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if  (X>0) and (X<form1.Width)and(Y>0) and (Y<10) then begin
   Xf:=X-Form1.Left;
   Yf:=Y-Form1.Top;
   MouseDown:=True;
 end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if MouseDown=False then exit;

Form1.Left:=X-Xf;
Form1.Top:=Y-Yf;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

 Form1.Left:=X-Xf;
 Form1.Top:=Y-Yf;
 MouseDown:=False;
end;

Заранее благодарю.

[Johnson]

Ваш способ, если быть честным - это сродни изобретению велосипеда с трапециевидными колесами... Есть же стандартный способ, который можно найти в инете за минуту... Вот пример:
http://devdelphi.ru/?p=337

Нужная Вам выдержка из статьи:

сделаем перемещение формы за любой ее элемент. Для этого мы будем использовать обработку сообщения WMNCHitTest.

Объявим процедуру в спецификаторе доступа private - procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;

Далее установим курсор на данную процедуру и нажмем Ctrl+Shift+C, после чего у нас появится заготовка нашей процедуры.

Теперь напишем следующий код в нашей процедуре:

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
 if  M.Result = htClient then
   M.Result := htCaption;
end;

Что мы здесь тут делаем, мы просто нашему результату присваиваем заголовок. То есть, за какую бы область наш курсор на форме не был зажат всегда будет думать, что это заголовок и свободно можно перемещать форму за любую ее область.

PS: //offtop: гы-гы, гратс меня с 555-м сообщением)))

[tsar_]

Прошу делать приоритет на этот способ(т.к. я пробовал много других), а потом уже советовать что-то другое.

Сразу посоветую что-то другое.
Вот две процедуры:

//процедура перетаскивания
procedure TForm1.move;
begin
 ReleaseCapture; //освобождаем захват мыши
 //перенаправляем его в заголовок
 SendMessage(Form1.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 //если курсор в нужной области, то форма двигается
 if Y<10 then move; //этого достаточно
end;

[_PROGRAMM_]

Спасибо. Помогло. Я рассматривал этот способ, но не додумался ввести условие.

[mihali4]

Метод пеpетаскивания фоpмы не только за заголовок, а вообще за любой компонент:

procedure TForm1.Form1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform (WM_SYSCOMMAND,SC_MOVE+2,0);
end;

Этот кусочек соpца надо подцеплять в обpаботчик OnMouseDown контpола, за
котоpый будем таскать.

Сто раз уже рассматривалось.
Получите "ФУ" за неиспользование поиска по форуму !