перемещение элемента мышью

Форумы Помощь по пакетуперемещение элемента мышью ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 498

Рейтинг: 39

#1: 2010-04-29 19:10:17 ЛС | профиль | цитата

Уже как только не побывал, стал пытаться сделать свой алгоритм, поселений вариант.
code_18015.txt
но тоже не работает, код лучше не смотрите, чего только не нагородил. Помогите пожалуйста примером.

карма: 0

файлы: 1

code_18015.txt [988B] [100]

Ответов: 970

Рейтинг: 270

#2: 2010-04-29 19:12:29 ЛС | профиль | цитата

MoveWindow

карма: 0

Ответов: 498

Рейтинг: 39

#3: 2010-04-29 19:15:59 ЛС | профиль | цитата

Мне нужно перетащить кнопки,формы,картинки прямо во время работы программы.
------------ Дoбавленo в 19.15:
не дочитал, спасибо.

карма: 0

Ответов: 1536

Рейтинг: 176

#4: 2013-02-20 11:13:58 ЛС | профиль | цитата

Воспользуюсь темой. Мне тоже нужно перемещать элемент мышью, но исключительно правой кнопкой мыши. Обычно приходилось иметь дело с ЛКМ, а с ПКМ что-то "не въеду".

Шаблон:

Add(Image,3114801,147,63)
{
 Left=15
 Top=15
 Width=205
 Height=180
 Color=255
 Point(Handle)
 Point(onMouseDown)
 link(onMouseDown,14197958:doEvent,[])
}
Add(MoveWindow,11742843,252,70)
{
 link(Handle,3114801:Handle,[(258,61)(244,61)(244,103)(160,103)])
}
Add(IndexToChanel,14197958,196,70)
{
 Data=Integer(0)
 link(onEvent1,11742843:doMove,[])
}

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Ответов: 1376

Рейтинг: 197

#5: 2013-02-20 12:55:09 ЛС | профиль | цитата

ser_davkin, так сойдёт?
code_30382.txt
недостаток: после перетаскивания надо кликнуть ЛКМ для отключения

карма: 1

файлы: 1

code_30382.txt [713B] [90]

Ответов: 1536

Рейтинг: 176

#6: 2013-02-20 14:10:16 ЛС | профиль | цитата

foksov, спасибо, но недостаток перечеркивает всё. Хм-м-м, не думал я, что на HiAsm это реализовать будет, скажем так, не просто.

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Форумы Помощь по пакетуперемещение элемента мышью ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)