Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

Перемещение панели   Найти похожие ветки 

 
race1   (2005-07-12 16:35) [0]

Есть, например, панелька. Нужно эту панельку таскать мышкой. Алгоритм такой - нажали на панельке, запомнили координаты мыши. Когда двигаем мышу проверяем что координаты не нулевые и смещаем панель на delta x и delta y, найденые как X-ClickPos.X. Но панель-то переместилась и заново приходит сообщение что мыша переместилась. Получается что панелька страшно дёргается, даже если мышу не двигать - сообщения сами приходят :)

Как-нибудь можно это побороть?


 
GLFox ©   (2005-07-12 16:41) [1]

Наверняка стоит попробовать обрабатывать OnMouseMove формы-владельца, а не самой панельки.


 
race1   (2005-07-12 17:15) [2]

вобще-то это не совсем удобно. т.к. я пишу компонент, который не должен ничего знать о родителе... т.е. что бы автономно таскался сам. но если иначе никак...


 
Ученик   (2005-07-12 22:30) [3]


procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 if Button = mbLeft then begin
   ReleaseCapture;
   {Panel1.}Perform(WM_SysCommand, $F012, 0);
 end
end;



 
race1   (2005-07-14 10:01) [4]

>Ученик
Здорово, работает. А что за command такой $F012 (61458)? Не нашёл такой константы...



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

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

Наверх




Память: 0.47 MB
Время: 0.048 c
14-1120741238
Piter
2005-07-07 17:00
2005.07.31
Посоветуйте книжку по базам данных


3-1119340037
ali_tash
2005-06-21 11:47
2005.07.31
TOracleDataSet выводит поля с пробелами как пустые


3-1119696331
serguncho
2005-06-25 14:45
2005.07.31
Пару вопросов по Firebird


1-1121336320
Igor_thief
2005-07-14 14:18
2005.07.31
PNG in Delphi


14-1120707744
X9
2005-07-07 07:42
2005.07.31
Бесплатный домен 2-го уровня