Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.02.2007, 07:45   #1
Apocalypsyse
Новичок
Джуниор
 
Регистрация: 12.02.2007
Сообщений: 1
По умолчанию Работа с TImage

В общем я хочу написать OnClick для TImage где выполнялось бы приблизительно следующее:
Если picturename загружена в TImage то
действие1
действие 2
действие n
в противном случае выход
Как сказать это на языке дельфи?
Если ответ уже есть на форуме,то просьба закрыть эту тему и дать мне ссылку на топ, где ответ есть
Apocalypsyse вне форума Ответить с цитированием
Старый 12.02.2007, 11:46   #2
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
По умолчанию

загружаем Picture в TImage мы сами, так ?

...вобще, непонятный вопрос, что за picturename ...
Берегите друг друга!
Virtson вне форума Ответить с цитированием
Старый 12.02.2007, 14:13   #3
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Нужно просто сопоставить именам возможных изображений некие значения, скажем, номер изображения. И пусть некая глобальная переменная PICNUM получает этот номер изображения в момент его загрузки в TImage.
(Если все изображения свести изначально в TImageList, то автоматом получим эту самую нумерацию)

Тогда и обработка реализуется элементарно:
case picnum of
0: действие 1
1: действие 2
...
n: действие n
mihali4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Timage Черничный Компоненты Delphi 10 04.07.2008 12:50
Timage RealSHELS Общие вопросы Delphi 7 05.05.2008 20:12
Timage RealSHELS Общие вопросы Delphi 2 03.05.2008 23:23
Работа с TImage-как установить длину массива TRGBTriple? Саня Компоненты Delphi 1 04.08.2007 11:15
TImage Andrey9392 Компоненты Delphi 6 06.04.2007 10:43