Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Перетаскивание после длительного удержания кнопки / 8 сообщений из 8, страница 1 из 1
20.12.2017, 15:39:19
    #39572844
Zaknafeir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перетаскивание после длительного удержания кнопки
Подскажите пожалуйста можно ли как то реализовать перетаскивание панели только после того как произошло удержание на ней зажатой ЛКМ например в течении 2х секунд?
То есть на форме панелька, зажимаем на ней ЛКМ пару секунд, она подсвечивается и становится доступной для тасканий. С самим переносом понятно, а вот как подсчитать секунды если мышка не была поднята?
...
Рейтинг: 0 / 0
20.12.2017, 16:07:02
    #39572874
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перетаскивание после длительного удержания кнопки
Zaknafeirа вот как подсчитать секунды если мышка не была поднята?
Код: pascal
1.
2.
3.
4.
5.
OnMouseDown
Timer.Enabled := True;

OnMouseUp/OnMouseLeave
Timer.Enabled := False;
...
Рейтинг: 0 / 0
20.12.2017, 16:37:32
    #39572908
rgreat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перетаскивание после длительного удержания кнопки
Нафига тебе таймер?

Достаточно GetTickCount.
...
Рейтинг: 0 / 0
20.12.2017, 16:44:31
    #39572920
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перетаскивание после длительного удержания кнопки
rgreatНафига тебе таймер?Чтобы узнать когд подсвечивать
Zaknafeirпару секунд, она подсвечивается
...
Рейтинг: 0 / 0
21.12.2017, 09:44:04
    #39573294
Zaknafeir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перетаскивание после длительного удержания кнопки
_Vasilisk_,

Но кнопка то не была отпущена. Зажимаем и тащим, а не зажимаем, отпускаем и только потом тащим
...
Рейтинг: 0 / 0
21.12.2017, 10:39:37
    #39573337
alekcvp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перетаскивание после длительного удержания кнопки
Zaknafeir_Vasilisk_,
Но кнопка то не была отпущена. Зажимаем и тащим, а не зажимаем, отпускаем и только потом тащим
Ну правильно, при нажатии - запускаем таймер, при срабатывании таймера - выключаем его, подсвечиваем панель и начинаем тащить.
Если же кнопка была отпущена, или курсор вышел за панельку - просто отключаем таймер.
...
Рейтинг: 0 / 0
22.12.2017, 13:40:47
    #39574419
Zaknafeir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перетаскивание после длительного удержания кнопки
alekcvp,
Спасибо, дошло до меня. Сделала проверку секунд в таймере и там же и остановить можно.
...
Рейтинг: 0 / 0
22.12.2017, 19:37:52
    #39574617
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перетаскивание после длительного удержания кнопки
ZaknafeirСделала проверку секунд в таймереЗачем? Таймер изначально заводится с нужным интервалом и срабатывает только тогда, когда пройдет все время ожидания
Zaknafeirтам же и остановить можно.Таймер в OnTimer нужно останавливать сразу после первого срабатывания
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Перетаскивание после длительного удержания кнопки / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]