Перетягивание картинки в произвольную часть экрана...

← →
KpeHgeJIb (2003-03-03 16:44) [0]

Народ помогите, я уже задавал этот вопрос сдесь но так и не получил ответа, и совреминем ветка ушла аж на треть страницу и никто ее не видет.

У меня есть обьект TImage который находится на форме. Задача состоит в том что его надо перетошить в Произвольную часть экрана. Выгляжить это должна приблезительно как перетягивание иконки из проводника куданибуть в другое место.Окончательно переносить его не надо нужно просто чтоб картинка тянудась вместе с курсором мыши и при сбрасывании возвращалась назад на форму.

Я просто пишу прогу которая умеет по таймеру выполнять различные операции. Одна из операций это управление окнами приложеий (закрыть, минимизировать и тд.). Естественно для этого мне нужен хендл окна который я получаю при помощи процедуры WindowFromPoint(mouse.CursorPos), именно вовремя сброса картинки (мишени).

Так работает мишенька в Windows Spy (если кто пользовался). Так вот мне нужно сделать тоже самое с моей картинкой.
Если кто знает подскажите чайнику.

← →
grei (2003-03-03 19:36) [1]

Ну если перетащить в другую часть экрана, то это будет очень тяжело, нужно будет пыхтеть. А если в другую част формы так это так:
BEGIN
RANDOMIZE;
IMAGE.LEFT := RANDOM(FORM1.HEIGHT);
IMAGE.TOP := RANDOM(FORM1.WIEGHT);
END;

Перетягивание картинки в произвольную часть экрана... Найти похожие ветки