Помогите пожалуйста сделать так чтобы при выборе в контекстном меню или нажатии на буттон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 и все стало так как я хотел... Спасибо.