//導入圖片 procedure LoadImage(Image :TImage;strICO :String); var strDir,strFile : string; begin GetDir(0,strDir); { 0 = 當前驅動器} strFile := strDir+'\\Image\\'+strICO; if FileExists(strFile) then begin Image.Picture.LoadFromFile(strFile); end else begin Application.MessageBox('系統找不到背景文件',PChar(CMSG_TITLE),MB_OK); end; end;
(fastreport.FindObject('picture1') as TrmPictureView).Picture.Graphic:=Image1.Picture.Graphic;
procedure LoadImage(Image :TImage;strICO :String);
var
strDir,strFile : string;
begin
GetDir(0,strDir); { 0 = 當前驅動器}
strFile := strDir+'\\Image\\'+strICO;
if FileExists(strFile) then
begin
Image.Picture.LoadFromFile(strFile);
end else
begin
Application.MessageBox('系統找不到背景文件',PChar(CMSG_TITLE),MB_OK);
end;
end;