怎样改变软件背景图?(100分)

  • 主题发起人 wupingjiang
  • 开始时间
W

wupingjiang

Unregistered / Unconfirmed
GUEST, unregistred user!
我设计了一个数据库管理系统,现在为了增加软件的界面效果,在主窗口增加背景切换功能,即使用Image控件,先在主窗口使用一个固定图片,如Image1,然后新建一Form,用于改变软件背景,有关代码如下:
procedure Txtbj.Button1Click(Sender: TObject);
begin
close;
if Opendialog1.Execute then
TabSet1.tabs:=Opendialog1.Files;
end;

procedure Txtbj.TabSet1Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
begin
mmaa.Image1.Picture.LoadFromFile(Tabset1.Tabs[NewTab]);
end;

现在有两个问题:
1。改变以后的背景在退出后不能保存,仍旧是先前那幅设定好的图片;
2。我想在控件中加装类似WinME缩略图那样的功能,或像Office97里剪贴图那样,先让用户预览效果,然后再双击对应图片,即可改变主窗口背景;或者不用缩略图,直接用各色图标代替,但是支持双击直接打开某个图片,而不是现在这样用标准对话框来打开,这样有很多问题,用户有可能打开其他无关文件。

现请问,各位大侠怎样实现?
 
1、用ini或者txt文件保存图片名。打开程序时读那个文件
2、用OpenPictureDialog打开可以预览

添加:
用try..except..end
打开无关文件不会产生什么问题。
 
顶部