我想通过一个按狃来更改背景图片 procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if(change) then
begin
image1.Picture.LoadFromFile('E:\delphi\Delphi练习\delphi7_0实用编程教程练习\建立简单跨平台应用程序\logo.jif');
change := false;
end
else
begin
image1.Picture.LoadFromFile('E:\delphi\Delphi练习\delphi7_0实用编程教程练习\建立简单跨平台应用程序\titlemu_2.gif');
change := true;
end;
end;
结果提示错误 :
Project Project1.exe raised exception class EInvalidGraphic with message'Unkonwn picture file extension (fif)'.Process stopped Use Step or Run to continue信息提示说 未知的图片格式?
大侠指点咋回事??
begin
if(change) then
begin
image1.Picture.LoadFromFile('E:\delphi\Delphi练习\delphi7_0实用编程教程练习\建立简单跨平台应用程序\logo.jif');
change := false;
end
else
begin
image1.Picture.LoadFromFile('E:\delphi\Delphi练习\delphi7_0实用编程教程练习\建立简单跨平台应用程序\titlemu_2.gif');
change := true;
end;
end;
结果提示错误 :
Project Project1.exe raised exception class EInvalidGraphic with message'Unkonwn picture file extension (fif)'.Process stopped Use Step or Run to continue信息提示说 未知的图片格式?
大侠指点咋回事??
titlemu_2.gif把这两个图片文件都换成JPG文件或BMP文件试一下