Показать сообщение отдельно
  #2  
Старый 10.05.2011, 22:59
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Хенд тул - это аля "рука"?
Тогда ничего сложного.
По событию MouseDown ставим флаг и запоминаем координаты мыши как xt, yt;
По событию MouseMove, если флаг стоит, замеряем текущие координаты мыши, вычитаем предыдущие, сдвигаем форму на полученное расстояние. Сохраняем в xt, yt новые значения координат мыши.
По событию MouseUp снимаем флаг.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием