如何在TButton点击上以编程方式更改图像

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;