[GraffyM]

Помогите пожалуйста сделать так чтобы при выборе в контекстном меню или нажатии на буттон1 можно было перемещать форму, пока не отпустится ЛКМ. Фон формы и шапка были удалены:

Код:

1 2	Form1.Brush.Style := bsClear; Form1.BorderStyle := bsNone;

Пока что все это происходит с помощью:

Код:

1 2 3 4 5 6 7 8 9

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

Чтото не могу сообразить как это заставить работать после нажатия на кнопку и после отпускания Левой Кнопки Мыши...

РЕШЕНО.

Сообщение от Asinkrit

Самый простой и быстрый способ)

Код:

Спасибо, этот способ наиболее подходящий. Я просто поставил в TForm1.FormMouseMove и все стало так как я хотел... Спасибо.

[Asinkrit]

Самый простой и быстрый способ)

Код:

1 2 3 4 5 6 7 8

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); const   SC_DRAGMOVE = $F012; begin   ReleaseCapture;   Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0); end;

[GraffyM]

Сообщение от Asinkrit

Самый простой и быстрый способ)

Код:

Спасибо, этот способ наиболее подходящий. Я просто поставил в TForm1.FormMouseMove и все стало так как я хотел... Спасибо.