实例二 点击按键更换背景

 

 

 

 

 

var
change:Boolean;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if (change) then
  begin
    Image1.Picture.LoadFromFile('./images/1.bmp'); //1.图片必需是BMP格式的
    change := False;
  end
  else
  begin
    Image1.Picture.LoadFromFile('./images/2.bmp');
    change := True;
  end;
  //2. if..else..如果是复合语句，需要加begin...end
end;

下载地址：

https://files.cnblogs.com/files/blogs/664406/%E5%AE%9E%E4%BE%8B2.rar