Главная страница
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.044 c
15-1168629626
PHPdeveloper
2007-01-12 22:20
2007.02.04
Хмм, вопросик


2-1169054244
FIL-23
2007-01-17 20:17
2007.02.04
как ограничить колличество записей в таблице?


15-1168639940
kaZaNoVa
2007-01-13 01:12
2007.02.04
Универсальный вызов функции


8-1149657707
Dr. Andrew
2006-06-07 09:21
2007.02.04
Как читать или конвертировать rm/ram к wav?


3-1163066669
Crim
2006-11-09 13:04
2007.02.04
Использование Progress Bar a