怎一个菜字了得,背景图片(50分)

  • 主题发起人 主题发起人 anan100
  • 开始时间 开始时间
A

anan100

Unregistered / Unconfirmed
GUEST, unregistred user!
Timage 组件作为form的背景,如何让背景图片为其他文件夹上的图片,也就是说我只用换图片,就可以换背景.
Timage.的loadimage 好象是把图片读进去了.而不是调用外部的图象


不要笑我菜 呵呵

在线等待答案
 
将图片文件的路径存在INI文件里
如:
[bmps]
bmp=./bmps/back.jpg

调用
procedure TMainForm.FormCreate(Sender: TObject);
var
bmpPath: string;
begin
AIni := TIniFile.Create(ChangeFileExt(ParamStr(0), '.INI'));
bmpPath := AIni.ReadString('bmps', 'bmp', '');
Image.Picture.LoadFromFile(bmpPath)
end;
 
后退
顶部