Я пытаюсь назначить изображению (Image1) изображение во время выполнения.
Так как я не могу установить свойство для загрузки из ресурса. Поэтому мне нужно загружать во время выполнения.
У меня есть код
procedure TForm1.FormCreate(Sender: TObject);
var RS:Tresourcestream ;
begin
RS := TResourceStream.Create(HInstance,'Splashscreen_Background', RT_RCDATA);
image1.Picture.Bitmap.LoadFromResourcename(HInstance,'splashscreen_background');
end;
Но он просто загружает формы с пустым изображением. а также:
procedure TForm1.FormCreate(Sender: TObject);
BitMap1 : TBitMap;
begin
BitMap1 := TBitMap.Create;
BitMap1.LoadFromResourceName(HInstance,'Live');
image1.Picture.Bitmap.Assign(Bitmap1);
end;
Понятия не имею, подойдет ли нижний вообще, думаю, нет. Как раз то, что я пробовал.