delphi7中安裝vclskin美膚插件，delphi7開(kāi)發(fā)的程序默認(rèn)界面單一，使用vclskin后，只需要拖拽，就可以輕松美化程序的界面。
下載vclskin，下載地址：
http://pan.baidu.com/s/1kTzNhdX?qq-pf-to=pcqq.c2c
2.打開(kāi)delphi7,進(jìn)入Tools->Environment Options->Library面板


3.點(diǎn)擊 Library path旁邊的"...",設(shè)置Library path。將下載文件中的source,package文件夾包含進(jìn)去,保存退出設(shè)置

4.點(diǎn)擊File->Open...
打開(kāi)下載文件中的package文件夾，選擇WinSkinD7D.dpk

5.提示找不到資源文件，忽略這個(gè)錯(cuò)誤就可以，點(diǎn)擊ok

6.出現(xiàn)組件安裝面板
7.依次點(diǎn)擊Compile,Install。安裝成功后會(huì)多出一個(gè)VCLSkin組件面板

===========================================================================================
1. TSkinData TSkinData 主要用于美化你的程序, 只要把TSkinData控件放下去，它就能自動(dòng)美化所有窗體。 屬性 Active: 使用或取消對(duì)程序的美化。 DisableTag: 取消對(duì)某個(gè)特定的組件的美化; 把組件的Tag屬性設(shè)為99就行了。?
(control.tag mod 100=disabletag) SkinControls:?指定哪類組件能被美化. SkinFile:?skin(皮膚)文件的包含路徑的文件名，在運(yùn)行時(shí)加載。 SkinStore: 在設(shè)計(jì)模式時(shí)儲(chǔ)備的skin文件. SkinFormType:?能使用多種美化方式. 方法 LoadFromStream(Stream: TStream);?
LoadFromFile(value:string);?
LoadFromCollection(astore:TSkinStore;aindex:integer); 在運(yùn)行時(shí)裝載skin文件. UpdateSkinControl(fParent:Tform);?
UpdateMenu(fParent:Tform); 在運(yùn)行時(shí)組件創(chuàng)建時(shí)進(jìn)行美化。 事件 OnFormSkin(Sender:TObject;aName:string;Var DoSkin:boolean); OnFormSkin 事件的發(fā)生先于美化窗體, 如果 Doskin 為 true, Vclskin 就會(huì)美化這個(gè)窗體， 如果為false，Vclskin 就會(huì)跳過(guò)這個(gè)窗體. aName 是窗體的類名. OnSkinChangned(Sender:TObject); OnSkinChanged 發(fā)生在skin文件改變之后。 2. TSkinStore TSkinStore 能讓你在設(shè)計(jì)模式時(shí)儲(chǔ)存多個(gè)skin文件。 TSkinData 能在運(yùn)行時(shí)從 TSkinStore 裝載skin文件: TSkinData.LoadFromCollection(astore:TSkinStore;aindex:integer), 3. 怎么美化程序界面 你可以在幾分鐘內(nèi)構(gòu)建一個(gè)漂亮的程序. 1 把 TSkindata 控件放在主窗體上。 2?設(shè)置?Skindata.skinstore?屬性 , 把skin文件儲(chǔ)存在你的程序中。 3 設(shè)置?Skindata.active = true 4 編譯運(yùn)行你的程序。 4.??VCLSkin???FAQ 1 如果我的工程中有14個(gè)窗體，用不用每個(gè)窗體都放一個(gè)skin控件? 不用，你只需要放置一個(gè)Tskindata在你的主窗體，Vclskin就能自動(dòng)美化每個(gè)窗體。 2 怎樣美化一個(gè)內(nèi)嵌的窗體 ? Vclskin 不能自動(dòng)美化內(nèi)嵌窗體，你要手動(dòng)控制它。壓縮包中有一個(gè)"NestedForm"的例子，講的是在運(yùn)行狀態(tài)美化內(nèi)嵌窗體、框架的。 3 怎樣美化動(dòng)態(tài)控件 ? 你需要手動(dòng)控制它。代碼如下:

control:=Tmycontrol.create(form1); skindata1.UpdateSkincontrol(form1); // add this line to skin dynamic control.

4 怎樣美化依靠窗體 ? Vclskin 支持停靠窗體. 例程代碼如下:

procedure?TDockableForm.FormShow(Sender: TObject); begin if MainForm.skindata1.active then MainForm.skindata1.skinform(handle); end;

5 怎么美化動(dòng)態(tài)的右鍵菜單 ? 例程代碼如下:

popup:=Tpopupmenu.create(form1); ..... add menuite skindata1.UpdateMenu(form1); //add this line popup.popup(x,y);

6 怎樣美化動(dòng)態(tài)窗體 ? Vclskin 可以美化動(dòng)態(tài)窗體 , 但不能自動(dòng)美化內(nèi)嵌窗體.?點(diǎn)擊這兒查看如何美化內(nèi)嵌窗體. 7?找不到文件 'c:/program files/borland/delphi7/SM/winskindata.pas'?
Delphi7 試用版與Delphi7正式版的Dcu文件格式是不一樣的。 如果你使用的是正式版，你可以安裝一個(gè)演示包。vclskin2.zip.
如果你使用的是試用版，你可以安裝一個(gè)演示包。?D7trial.zip. 8 使用 FastReport 時(shí)，出現(xiàn)了“無(wú)效操作，控件沒(méi)有父窗體的的錯(cuò)誤提示 ? 設(shè)置?TSkindata.skincontrols.xcFastReport = true?就可以解決這個(gè)問(wèn)題。 9 使用 ReportBuilder 出現(xiàn)了“無(wú)效操作，控件沒(méi)有父窗體的錯(cuò)誤提示? 你可以在?TSkindata.OnformSkin?事件中取消美化這個(gè)控件。 代碼如下 :

procedure?Tform1.SkinData1FormSkin(Sender: TObject; aName: String; var DoSkin: Boolean); begin //'TppPrintPreview' 就是要取消美化的窗體名稱。? if aName='TppPrintPreview' then doskin:=false; end;

10 如何存取skin文件的顏色? 你可以借助?Tskindata.colors[]?屬性來(lái)存取顏色。?
比如說(shuō) , 窗體的背景色是 :?skindata.Colors[csButtonFace].

TShemeColor=(csText,csTitleTextActive,csTitleTextNoActive, csButtonFace,csButtonText, csButtonHilight,csButtonlight,csButtonShadow,csButtonDkshadow, csSelectText,csSelectBg,csHilightText,csHilight, csMenuBar,csMenuBarText,csMenuText,csMenubg, csScrollbar,csTextDisable); TShemeColors=array[csText..csTextDisable] of Tcolor; Skindata.Colors: TShemeColors;

11 用戶能自定義那些可視化控件的外觀嗎? 你可以使用?skin builder自定義細(xì)節(jié). 12 怎樣取消美化某個(gè)窗體或控件? 設(shè)置?form.tag=99 取消?美化這個(gè)窗體。 13 如何在美化一個(gè)工程的窗體標(biāo)題欄和菜單的風(fēng)格? 設(shè)置?TSkindata.skincontrols.xcMainmenu = false?.?

總結(jié)

以上是生活随笔為你收集整理的安装和使用VCLSkin美肤插件的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。