Скачать: CL | DM;

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

← →
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)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.037 c