Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как узнать есть ли в компоненте image рисунок ? [D7, XP]


Sanya_87_1 ©   (2010-01-10 21:31:00) 

Как проверить содержит ли компонент image рисунок или нет? Так не получается if image1.picture.bitmap <> nil


Sanya_87_1   (2010-01-10 21:54:00) [1]

> antonn ©   (10.01.10 21:47) [6]

Ваш метод не работает :)

Григорьев Антон ©   (10.01.10 21:47) [7]

Спасибо, все получилось!


antonn   (2010-01-10 21:47:00) [2]


> Так не получается if image1.picture.bitmap <> nil
>

image1.picture<>nil ? :)


Григорьев Антон   (2010-01-10 21:47:00) [3]

if Assigned(Image1.Picture.Graphic) and not Image1.Picture.Graphic.Empty then...

Ваш код не работает потому, что TPicture.Bitmap - это свойство, в методе чтения которого Bitmap, если он ещё не создан, создаётся, поэтому Image1.Picture.Bitmap никогда не может быть равен nil.

А вообще, такие вещи надо уметь самостоятельно находить в справке и в исходниках VCL, а то так и будете из-за каждой ерунды в форум бегать.


oldman   (2010-01-10 21:44:00) [4]


> Вся проблема в том что я не могу его отследить, поэтому
> проверка через Tag отпадает.


Переведи.


Sanya_87_1   (2010-01-10 21:41:00) [5]

Нет рисунка это когда не был выполнен метод Image1.picture.loadfromfile('c:\risunok.bmp');    Вся проблема в том что я не могу его отследить, поэтому проверка через Tag отпадает.


oldman   (2010-01-10 21:38:00) [6]

А что значит "нет рисунка"?
Серый квадрат (или белый) тоже рисунок.


Sanya_87_1   (2010-01-10 21:36:00) [7]

Может и появиться, как нибудь без Tag'a можно проверить?


oldman   (2010-01-10 21:34:00) [8]

Сам по себе он ведь там не появиться.
При загрузке рисунка меняй, например, tag.
И проверяй его потом.


Наверх

Титульная страница Поиск, карта сайта Написать письмо