delphi Imge控件加载一个图片 点击一下显示换成另外一个图片 再点击一下又换成第一张图片 如何实现？

Question

delphi Imge控件加载一个图片 点击一下显示换成另外一个图片 再点击一下又换成第一张图片 如何实现？
我是这样写的 
procedure TForm1.Image1Click(Sender: TObject);
beginImage1.Picture.Assign(Image2.Picture.Graphic);end;点击一下image1的图片变成了image2的图片  但是我再点击这个图片的时候 它没反应 我想让它变回image1的图片  请问该怎么实现？

Answer 1

procedure TSysAboutForm.FormShow(Sender: TObject);
var SysIco:string;
begin
  if SysPubUnit.SysId = 'S' then
    SysIco := '../skin/SysNSetup.ICO'
  else if SysPubUnit.SysId = 'N' then
    SysIco := '../skin/SysNModel.ICO'
  else if SysPubUnit.SysId = 'O' then
    SysIco := '../skin/SysNClient.ICO';
  if FileExists(SysIco) then
    ProgramIcon.Picture.LoadFromFile(SysIco);
end;
我自己寫的權限系統ID加載圖片，可以參考 下

Answer 2

先把路徑存起來，，，
ProgramIcon.Picture.LoadFromFile(SysIco);你的只要這句話就OK了,,,

Answer 3

procedure TForm1.Image1Click(Sender: TObject);
var
  tmpPicture:TPicture;
begin
  tmpPicture:=TPicture.Create;
  tmpPicture.Assign(Image1.Picture);
  Image1.Picture.Assign(Image2.Picture.Graphic);
  Image2.Picture.Assign(tmpPicture);
  tmpPicture.Free;
end;
简单的交换。。不知道您满意否？