[GraffyM]

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

Код:

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

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

Код:

...
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

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

Код:

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

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

[Asinkrit]

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

Код:

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

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

Код:

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

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