Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.035 c
1-39412
GROL
2003-03-02 12:41
2003.03.13
Как восстановить текст компонент?


3-39184
АндрейБ
2003-02-20 15:58
2003.03.13
ProgressBar при SQL-запросе.


1-39360
Злодей
2003-03-02 11:03
2003.03.13
Поиск


6-39426
SireX
2003-01-21 11:42
2003.03.13
Всем привет! Вопрос:FastNet (NMFTP)как получить !отдельно! имена


7-39591
bAgmAn
2003-01-16 16:46
2003.03.13
работа со сканерами





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский