Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.04;
Скачать: 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 вся ветка

Текущий архив: 2007.02.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
15-1168892349
Pasha L
2007-01-15 23:19
2007.02.04
Достать Демки Инди


2-1169295348
redlord
2007-01-20 15:15
2007.02.04
получение почты средствами компонентов indi


11-1145208691
Vladimir Kladov
2006-04-16 21:31
2007.02.04
Версия 2.35


2-1169118311
FIL-23
2007-01-18 14:05
2007.02.04
как узнать номер позиции указателя в таблице?


15-1168800165
matt
2007-01-14 21:42
2007.02.04
Технологический шантаж