|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/3/5 10:12:22 |
标题: |
|
加入我的收藏 |
楼主: |
我在delphibox下载了一vcl皮肤,但在程序里面控制出现下面这种问题. 下载地址(http://www.2ccc.com/article.asp?articleid=318) var path_str : string; begin //SkinData1.Active := true; path_str := GetCurrentDir() + '\mxp1.skn'; showmessage(path_str+'==='+'E:\midas\skins\mxp1.skn'); SkinData1.SkinFile := path_str; 为什么这样不能换肤而这样又可以 var path_str : string; begin //SkinData1.Active := true; path_str := GetCurrentDir() + '\mxp1.skn'; showmessage(path_str+'==='+'E:\midas\skins\mxp1.skn'); SkinData1.SkinFile := 'E:\midas\skins\mxp1.skn';
----------------------------------------------
中流一壶,千金争挈。宁为铅刀,毋为楮叶。错节盘根,利器斯别。识时务者,呼为俊杰! |
作者: |
|
2004/3/5 12:35:22 |
1楼: |
用 extractfilepath(application.exename) 取得你程序的运行目录 接下来.....
----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com
|
作者: |
|
2004/3/5 12:55:22 |
2楼: |
谢谢你问题得以解决!
----------------------------------------------
中流一壶,千金争挈。宁为铅刀,毋为楮叶。错节盘根,利器斯别。识时务者,呼为俊杰!
|
|