Таскать форму правой кнопкой мыши....

← →
Makhanev Alexander (2006-12-10 11:42) [0]

Как сделать так чтобы форма перетаскивалась (drag) при зажатой правой кнопке мыши.
При зажатой левой всё ясно - WM_NCHitTest и подмена msg.Result на htCaption.
Но т.к. htCaption работает только для левой кнопки, возникает проблема.

Буду рад советам.

← →
Loginov Dmitry © (2006-12-10 11:58) [1]

> Буду рад советам.

Всесто правой кнопки используй левую кнопку с Ctrl

← →
Loginov Dmitry © (2006-12-10 12:07) [2]

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const Sc_dragmove = $F012; begin if (ssCtrl in Shift) and (Button = mbLeft) then begin ReleaseCapture; (Sender as TWinControl).Perform(WM_SYSCOMMAND, Sc_dragmove, 0); end; end;

А с правой кнопкой мыши и вправду не все так просто...

← →
Makhanev Alexander (2006-12-10 12:12) [3]

угу, к сожалению надо именно правой таскать.
а делать это вручную совсем не хочется (mouse down\up\move)

Таскать форму правой кнопкой мыши.... Найти похожие ветки