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

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

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

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


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