Удаление изображения в компоненте TImage

@newkaz · Регистрация: 16.10.2017

Студворк — интернет-сервис помощи студентам

Всем добрый день.
Столкнулся со странной непоняткой: есть 2 формы, на каждой есть компонент TImage и кнопка, при нажатии которой загружается изображение в TImage. И на каждой есть кнопка, которая изображение удаляет (Image1.Picture.Graphic:=nil). Так вот, на одной форме все прекрасно отрабатывает. На другой же изображение остается видимым (при проверке Image1.Picture.Graphic=nil). Но если поверх этой формы открыть любое окно (например, папку на компьютере), и свернуть его, то изображение пропадает. Вот так.

Добавлено через 1 час 34 минуты
Здесь, скорее всего, проблема не Делфи, но непонятно, почему в двух аналогичных случаях программа отрабатывает по-разному.

@D1973 · 11.11.2020, 16:17

Сообщение от newkaz

Для красоты

Сообщение от newkaz

убрал - все

Еще один случай в копилку ситуаций, описываемых одной фразой: "СТОРОННИЕ КОМПОНЕНТЫ - ЗЛО!!!"

@UR1004SWL · 11.11.2020, 17:13

СТОРОННИЕ КОМПОНЕНТЫ - ЗЛО

Да ничего подобного. Создал новый проект, накидал на две формы приблизительно такие же компаненты, как у автора топика. И всё работает.

@newkaz · 11.11.2020, 17:50 **[ТС]**

Я не часто использую сторонние компоненты, однако с таким глюком столкнулся впервые.

@UR1004SWL · 11.11.2020, 17:58

Всё работает, дизайн приблизительно тот же. В коде на каждой форме всего по две строчки кода. Ищи проблему в своём коде.

@newkaz · 11.11.2020, 18:05 **[ТС]**

Причина оказалась в наличии на форме компонента TRzBackground. Но что он делает для того, чтобы изображение не удалялось - сие загадка большая есть.

@AzAtom · 11.11.2020, 19:54

Сообщение от newkaz

DoubleBuffered:=True при создании проблемной формы выдает ошибку (Access violation at address...)

Так и будет, если обращаться к другим формам из OnCreate главной формы. В этот момент другие формы ещё не созданы, поэтому ошибка.

@newkaz · 11.11.2020, 20:11 **[ТС]**

Я присваивал DoubleBuffered:=True при OnCreate проблемной формы.

DenNik · 11.11.2020, 23:06

изображение удаляет (Image1.Picture.Graphic:=nil

Где ты эту ерунду почерпнул? Удаляется так:
Image.Picture:= nil

@UR1004SWL · 11.11.2020, 23:17

Сообщение от DenNik

Где ты эту ерунду почерпнул? Удаляется так:
Image.Picture:= nil

Вот-вот, я уже давно намекал автору и в проектах прикрепил, но видимо человеку пофиг.

@GoodWeather · 12.11.2020, 00:37

ну... Почему-почему...
TRzBackground ~> Background ~> Фон ~> некоторое рисование ~> чего оно делает? как? ~> возможно было вмешательство в обновление окна...

Сообщение от DenNik

Где ты эту ерунду почерпнул? Удаляется так: ...

Но ведь... Если заглянуть в исходники VCL... То оба варианта в итоге приводят к одному и тому же:

TPicture > property Graphic > SetGraphic(Nil) > FGraphic.Free; FGraphic := Nil;

TImage > property Picture > SetPicture(Nil) > FPicture.Assign(Nil); > SetGraphic(Nil) > FGraphic.Free; FGraphic := Nil;

А цепочка вызовов меньше как раз у варианта TImage.Picture.Graphic := Nil;

@newkaz · 12.11.2020, 08:02 **[ТС]**

Сообщение от DenNik

Где ты эту ерунду почерпнул? Удаляется так:
Image.Picture:= nil

Удаляется и Image1.Picture.Graphic:=nil и Image1.Picture:=nil.
Я еще до темы в форуме и так и так пробовал. А вот с RzBackground получается интересно: создал форму, на которой поместил все сторонние компоненты (включая RzBackground), которые были на той форме, где изображение не удалялось - и все работает.

@AzAtom · 12.11.2020, 15:31

newkaz, теперь надо сравнить значения свойств в инспекторе объектов.

@newkaz · 12.11.2020, 17:31 **[ТС]**

Сравнил. Единственное, что я менял у RzBackground - это размеры и цвета. Поставил то, что было - все работает

.

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

@newkaz 0 / 0 / 0 Регистрация: 16.10.2017 Сообщений: 29

	Удаление изображения в компоненте TImage 09.11.2020, 16:20. Показов 5974. Ответов 32 Метки нет (Все метки) Всем добрый день. Столкнулся со странной непоняткой: есть 2 формы, на каждой есть компонент TImage и кнопка, при нажатии которой загружается изображение в TImage. И на каждой есть кнопка, которая изображение удаляет (Image1.Picture.Graphic:=nil). Так вот, на одной форме все прекрасно отрабатывает. На другой же изображение остается видимым (при проверке Image1.Picture.Graphic=nil). Но если поверх этой формы открыть любое окно (например, папку на компьютере), и свернуть его, то изображение пропадает. Вот так. Добавлено через 1 час 34 минуты Здесь, скорее всего, проблема не Делфи, но непонятно, почему в двух аналогичных случаях программа отрабатывает по-разному. 0

@newkaz 0 / 0 / 0 Регистрация: 16.10.2017 Сообщений: 29
	11.11.2020, 17:50 [ТС]
	Я не часто использую сторонние компоненты, однако с таким глюком столкнулся впервые. 0

@newkaz 0 / 0 / 0 Регистрация: 16.10.2017 Сообщений: 29
	11.11.2020, 18:05 [ТС]
	Причина оказалась в наличии на форме компонента TRzBackground. Но что он делает для того, чтобы изображение не удалялось - сие загадка большая есть. 0

@newkaz 0 / 0 / 0 Регистрация: 16.10.2017 Сообщений: 29
	11.11.2020, 20:11 [ТС]
	Я присваивал DoubleBuffered:=True при OnCreate проблемной формы. 0

@AzAtom Модератор 4156 / 2365 / 814 Регистрация: 15.11.2015 Сообщений: 9,502
	12.11.2020, 15:31
	newkaz, теперь надо сравнить значения свойств в инспекторе объектов. 0

@newkaz 0 / 0 / 0 Регистрация: 16.10.2017 Сообщений: 29
	12.11.2020, 17:31 [ТС]
	Сравнил. Единственное, что я менял у RzBackground - это размеры и цвета. Поставил то, что было - все работает . 0