Создание собственного визуального компанента

@DenProx · Регистрация: 09.10.2009

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

Доброго времени суток! Пишу свой компонент, в котором по заданию будет использоваться фон в виде картинки. Вопрос в следующем: как "вшить" картинку в компонент, чтобы не хранить ее где-то в отдельной папке.

Например если бы компонент был на основе TImage, то при помещении его на форму в дизайнере, по умолчанию уже была бы установлена необходимая "картинка".

Надеюсь я понятно изложил суть вопроса )))

Добавлено через 6 минут
Вроде как это делается через *.res файл. Если да, то вопрос немного в другом! Как его отредактировать в RAD Studio 2010 ?

@harrybook · 10.05.2016, 13:13

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

Как его отредактировать в RAD Studio 2010 ?

RAD Studio не знаю, а в 7-ке так:
Tools - > Image Editor
в редакторе:
File -> New -> Resourse file
добавите ресурс и вставите картинку

@DenProx · 10.05.2016, 13:16 **[ТС]**

harrybook, в 7-ке я знаю ... кстати говоря, нашел вот такую программку ResourceEditor.rar

Но пока не проверил на работоспособность.

@DenProx · 10.05.2016, 15:08 **[ТС]**

Вопрос решен. Действительно нужно использовать *.res файл. Программа ResourceEditor работает.

Добавлено через 57 минут
Извиняюсь за оверпост, но хотелось бы продолжить тему. Вопрос с загрузкой изображения решен, но вот правильное его использование пока не могу реализовать.

Необходимо, чтобы изображение из *.res файла, в идеале подгружалось в момент выполнения конструктора компонента.

Если это неправильно, то хотя бы отдельная процедура, которую можно было бы вызвать, например, при старте приложения (OnShow).

С первым у меня не получилось. В конструкторе создавал переменную типа TBitmap, загружал в нее изображение, и пытался присвоить созданный битмап в PaintBox через Draw:

Delphi
1
2
3
4
5
6
 
... 
WavFon1 := TBitmap.Create;
WavFon1.LoadFromResourceName(HInstance,'MFON');
imgWav1.Canvas.Draw(0,0,WavFon1);
...

В таком случае, в дизайнере когда пытаешься поместить компонент на форму, вылетает ошибка - Control '' has no parent window

Тогда пошел по другому пути. Оформил это дело в отдельную процедуру, и вызываю по событию OnShow главной формы. В таком случае ни чего не присваивается.

Но если например по событию OnClick вызвать процедуру, то все работает.

В чем моя ошибка ??

@northener · 10.05.2016, 15:23

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

В таком случае, в дизайнере когда пытаешься поместить компонент на форму

Delphi
1
if not (csDisigning in ComponentState) then //загружаем картинку

@DenProx · 11.05.2016, 15:23 **[ТС]**

northener, В самый конец конструктора добавил:

Delphi
1
2
3
4
5
6
  if not (csDesigning in ComponentState) then
  begin
    WavFon1 := TBitmap.Create;
    WavFon1.LoadFromResourceName(HInstance,'MFON');
    imgWav1.Canvas.Draw(0,0,WavFon1);
  end;

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

Добавлено через 6 часов 25 минут
Пока что помогло только использование события OnPaint главной формы.

Добавлено через 46 минут
OnPaint - только для запуска помогает, при дальнейшем использовании только мешает.

@DenProx · 13.05.2016, 14:45 **[ТС]**

Решение проблемы: Вместо canvas.draw(...) нужно использовать Picture.Assign(...);

p.s. в случае если используется TImage.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109

	Создание собственного визуального компанента 10.05.2016, 12:53. Показов 1540. Ответов 6 Метки нет (Все метки) Доброго времени суток! Пишу свой компонент, в котором по заданию будет использоваться фон в виде картинки. Вопрос в следующем: как "вшить" картинку в компонент, чтобы не хранить ее где-то в отдельной папке. Например если бы компонент был на основе TImage, то при помещении его на форму в дизайнере, по умолчанию уже была бы установлена необходимая "картинка". Надеюсь я понятно изложил суть вопроса ))) Добавлено через 6 минут Вроде как это делается через *.res файл. Если да, то вопрос немного в другом! Как его отредактировать в RAD Studio 2010 ? 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	10.05.2016, 13:16 [ТС]
	harrybook, в 7-ке я знаю ... кстати говоря, нашел вот такую программку ResourceEditor.rar Но пока не проверил на работоспособность. 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	13.05.2016, 14:45 [ТС]
	Решение проблемы: Вместо canvas.draw(...) нужно использовать Picture.Assign(...); p.s. в случае если используется TImage. 0