|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.01.2016, 16:47 | #1 |
Форумчанин
Регистрация: 12.02.2011
Сообщений: 808
|
перемещение визуальных компонентов.
всем добра. добрые люди подскажите как сделать перемещение кнопки или другого визуального компонента. хочу чтобы можно было двигать как в момент накидывания компонента на форму, можно на примере кнопки.
я предполагаю есть событие подходящее для этого вот только не могу понять какое?
Терпение!Дежурный экстрасенс скоро свяжется с вами!
|
25.01.2016, 17:11 | #2 |
Участник клуба
Регистрация: 30.01.2011
Сообщений: 1,578
|
если немного погуглить то можно найти:
Есть два варианта. Либо вручную делать с помощью события движения мыши, чтобы при зажатой левой кнопке мыши кнопка на форме следовала за курсором, либо использовать стандартные функции. Простой способ - с помощью события движения мыши. Описываем булеву переменную drag. При событии OnMouseDown присваиваем drag:=true, т.е. разрешаем перемещение. В обработчике события OnMouseMove присваиваем координатам кнопки координаты мыши, так же, как было сделано в таймере, но с условием if drag then [наши действия]. И, наконец, при событии OnMouseUp сбрасываем переменную - drag:=false. Пример кода: Код:
пишу код не только за печеньки
|
25.01.2016, 17:22 | #3 | |
Форумчанин
Регистрация: 12.02.2011
Сообщений: 808
|
Цитата:
Терпение!Дежурный экстрасенс скоро свяжется с вами!
|
|
26.01.2016, 12:45 | #4 |
Форумчанин
Регистрация: 27.10.2014
Сообщений: 594
|
Обалдеть...
А если немного напрячься и освоить поиск по форуму, то можно найти куда проще: Код:
|
26.01.2016, 14:25 | #5 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,426
|
В пакете Cyndy есть целый компонент для этого. Даже мини-виз. редактор можно накидать.
|
26.01.2016, 14:28 | #6 | |
Форумчанин
Регистрация: 12.02.2011
Сообщений: 808
|
Цитата:
кстати такой код для Lazarus не пойдет так?
Терпение!Дежурный экстрасенс скоро свяжется с вами!
|
|
26.01.2016, 14:35 | #7 |
Форумчанин
Регистрация: 12.02.2011
Сообщений: 808
|
в 6 делфе??
Терпение!Дежурный экстрасенс скоро свяжется с вами!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перемещение и изменение размеров компонентов | Luchfan12 | Общие вопросы Delphi | 4 | 22.05.2014 09:30 |
Масштабирование и перемещение компонентов | Dennis777 | Общие вопросы Delphi | 13 | 28.02.2013 21:30 |
Подключение визуальных библиотек для тетриса | Expected } | Visual C++ | 1 | 06.11.2012 18:09 |
Перемещение компонентов по форме | artemavd | Общие вопросы Delphi | 2 | 24.04.2012 19:28 |
Перемещение компонентов | _SERGEYX_ | Общие вопросы Delphi | 2 | 10.04.2008 13:33 |