如何在单击按钮时以编程方式更改图像？

Question

我需要更改主窗体上几个 TImage 组件的图像。

• 有哪些可能的方法可以以编程方式更改它？

Answer 1

类似于以下内容，其中 RCDATA 类型的资源被命名为 JpgImage_1。

这里的资源应该通过 $RESOURCE 指令链接到可执行文件。

procedure TForm1.Button1Click(Sender: TObject);
var
  stream: TStream;
begin
  if FindResource(HInstance, PChar('JpgImage_1'), RT_RCDATA) = 0 then
    Exit;

  stream := TResourceStream.Create(HInstance, 'JpgImage_1', RT_RCDATA);
  try
    Image1.Bitmap.LoadFromStream(stream);
  finally
    stream.Free;
  end;
end;