如何通過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;