Delphi Express全用面板的方法

2021-06-16 23:08:46 字數 1224 閱讀 7368

1.引用dll**檔案

type

procedure setskin(skinnam:string);

procedure tfrmmain.setskin(skinnam:string);

varhinst:thandle;

rstream:tresourcestream;

begin

hinst:=loadlibrary('allsk.dll');

if hinst=0 then

exit

else

begin

rstream:=tresourcestream.create(hinst,skinnam,'myskin');

dxskinsuserskinloadfromstream(rstream);

dxskincontroller1.nativestyle:=false;

dxskincontroller1.useskins:=true;

end;

end;

procedure tfrmmain.button1click(sender: tobject);

begin

setskin('office2007blue');

end;

2.有效減小使用**後軟體體積巨大的方法:

一.   delphi的主選單: project  -> modify skin options ,彈出project skin options 

editor 對話方塊,從列表中,只選擇: userskin這一項,取消enable skin support的勾,

點ok退出.  (注意:此步驟需dev40以上版本才有效)

二.   從dev express 項下選擇dxskincontroller控制項,新增到工程,設定dxskincontroller1的skinname屬性設為:userskin ;

三.  **:(對res**有效,在程式資料夾裡需要先建乙個叫skin的資料夾)

procedure tfrmmain.button1click(sender: tobject);

var str:string;

begin

str:='xmas2008blue.skinres';  //可自行修改

dxskincontroller1.nativestyle:=false;

dxskincontroller1.useskins:=true;

end;

python 共享資料 用Python共享全域性資料

a在globaldatabase的宣告中分配了乙個列表.globaldatabase的每個例項都以對同一列表的引用開始,我們將其稱為 原始 列表.當您在第乙個示例中執行self.a value時,為該例項或 self 替換對原始列表的引用,並引用您指定的列表值.建立的任何新例項仍將引用原始列表,這就...

全0和全1的主機位址是幹嗎用的

即 每個網段32個ip位址,第乙個是網路位址,用來標誌這個網路,最後乙個是廣播 位址,用來代表這個網路上的所有主機.這兩個ip位址被tcp ip保留,不可分配給主機使用.另外,第乙個子網192.168.10.0 31和最後乙個子網192.168.10.224 255通常也被 保留,不能使用.原因是,...

用全排列解決N皇后問題(暴力法)

為八皇后問題,count為最後可行的方案數,共92種 要解決n皇后,只需要修改部分引數 include include include void printarray int a,int p,int q printf n void swap int a,int p,int q void perm i...