如何在TButton点击上以编程方式更改TImage？

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;