delphi皮肤使用

如果是VCLSkin的话：

创建新的工程，在控件面板的最下方增加了VCLSkin 栏，下面有TSkinData 和TSkinStore 两个控件

把TSkinData 拖放到你创建工程的窗体下。

设置TSkinData 中的Skinstore属性，指定皮肤文件。皮肤文件在下载的Skins 文件夹当中。

把TSkinData中的Active属性设置为true激活效果，默认是false 。

编译可看到效果。

我用的是delphi 7

我下载的AlphaControls+6.21+FS ，并复制到lib下，选择“文件” “打开” 找到acntD7.dbk “编译”

后出现

“ acHintPage in 'acHintPage.pas' {TFrameHintPage}; ”红色的

我忽略点了“安装” 。

在控件栏看到了“alphastandard” 下有按钮就拖上去一个。运行

出现

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, sScrollBar, ExtCtrls, sPanel, sButton;

提示没有找到Sscrollbar.dcu 然后选择“文件” “打开” 找到acntD7.dbk “编译”

后出现提示没有找到Sdef.inc 。

进入菜单[Tools]-[Environment Options] ，打开Library 页，在Library Path 栏加入你安装的组件的路径就可以了，不知道路径就搜索Sscrollbar.dcu就可以找到安装路径。

https://www.360docs.net/doc/0019076720.html,/weide001/archive/2009/04/22/4100975.aspx

1. VCLSkin综述

VCLSkin 是一个能让Delphi程序变得非常漂亮的控件包. 它允许允许软件开发人员不用修改程序代码便把软件界面变得非常漂亮。它的美化支持窗体和控件和菜单。VCLSkin同时也提供了大量高质量的skin(皮肤)让你应用于你的程序。

2. VCLSkin特点

VCLSkin 是一个用于让用户的程序界面更加漂亮的扩展控件。它允许软件开发人员不用修改源代码就能让他们的程序界面更加漂亮。一个标准的程序界面能在窗体放入VCLSkin控件后变得非常漂亮，而这公公需要几分钟的时间。VCLSkin 能做些什么?

不像其它控件那样，你需要修改源代码才能构建一个漂亮的界面，VCLskin 能让Delphi的标准控件在一下子就变得非常漂亮，而这一切都不用修改源代码。VCLSkin 支持以下的窗体:

Delphi Form

MDIform . (normal,Maximized, MInimized)

Common Windows dialogs (Open/Save,Font,Print,Color).

MsgBox.

Exception MsgBox.

VCLSkin 支持的标准控件:

The title bar of TForm

The title bar buttons

The borders of Tform

Tbutton,TBitbtn.

Tradiobutton and Tcheckbox

Tmainmenu and Tpopupmenu

Toolbar buttons

TTabcontrol and TPageControl

T Progressbar

TStatusbar

TCustomCombox,Tcombobox, TDbCombobox

TPanel and TGroupbox

TMemo, TListBox,TListView,TTreeview

TRadioGroup , TDBRadioGroup.

TCustomGrid,TStringgrid,TDrawgrid,Tdbgrid.

Third party component, Enlib, AdvGrid ..

同时也支持大量的第三方控件。

3.安装

你可以像安装其它控件一样安装这夽控件，其实就这几步：

解压缩Vclskin2.zip 到任意目录

在Delphi IDE 环境中选择菜单"File. Open...", 然后找到连接库

vclskindX.dpk, 按着点击Compile按钮。

在Environment 添加VCLSkin控件所在的路径。

DX - Delphi X, X - version CBX - CBuilder X, X - version

--------------------------------------------------------------------------------

1. TSkinData

TSkinData 主要用于美化你的程序, 只要把TSkinData控件放下去，它就能自动美化所有窗体。

属性

Active: 使用或取消对程序的美化。

DisableTag: 取消对某个特定的组件的美化; 把组件的Tag属性设为99就行了。(control.tag mod 100=disabletag)

SkinControls: 指定哪类组件能被美化.

SkinFile: skin(皮肤)文件的包含路径的文件名，在运行时加载。

SkinStore: 在设计模式时储备的skin文件.

SkinFormType: 能使用多种美化方式.

方法

LoadFromStream(Stream: TStream);

LoadFromFile(value:string);

LoadFromCollection(astore:TSkinStore;aindex:integer);

在运行时装载skin文件.

UpdateSkinControl(fParent:Tform);

UpdateMenu(fParent:Tform);

在运行时组件创建时进行美化。

事件

OnFormSkin(Sender:TObject;aName:string;Var DoSkin:boolean); OnFormSkin 事件的发生先于美化窗体, 如果Doskin 为true, Vclskin 就会美化这个窗体，如果为false，Vclskin 就会跳过这个窗体. aName 是窗体的类名. OnSkinChangned(Sender:TObject);

OnSkinChanged 发生在skin文件改变之后。

2. TSkinStore

TSkinStore 能让你在设计模式时储存多个skin文件。

TSkinData 能在运行时从TSkinStore 装载skin文件:

TSkinData.LoadFromCollection(astore:TSkinStore;aindex:integer),

3. 怎么美化程序界面

你可以在几分钟内构建一个漂亮的程序.

1 把TSkindata 控件放在主窗体上。

2 设置Skindata.skinstore 属性, 把skin文件储存在你的程序中。

3 设置Skindata.active = true

4 编译运行你的程序。

4. VCLSkin FAQ

1 如果我的工程中有14个窗体，用不用每个窗体都放一个skin控件?

不用，你只需要放置一个Tskindata在你的主窗体，Vclskin就能自动美化每个窗体。

2 怎样美化一个内嵌的窗体?

Vclskin 不能自动美化内嵌窗体，你要手动控制它。压缩包中有一个"NestedForm"的例子，讲的是在运行状态美化内嵌窗体、框架的。

3 怎样美化动态控件?

你需要手动控制它。代码如下:

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 怎么美化动态的右键菜单?

例程代码如下:

popup:=Tpopupmenu.create(form1);

..... add menuite

skindata1.UpdateMenu(form1); //add this line

popup.popup(x,y);

6 怎样美化动态窗体?

Vclskin 可以美化动态窗体, 但不能自动美化内嵌窗体. 点击这儿查看如何美化内嵌窗体.

7 找不到文件'c:\program files\borland\delphi7\SM\winskindata.pas'

Delphi7 试用版与Delphi7正式版的Dcu文件格式是不一样的。

如果你使用的是正式版，你可以安装一个演示包。vclskin2.zip.

如果你使用的是试用版，你可以安装一个演示包。D7trial.zip.

8 使用FastReport 时，出现了“无效操作，控件没有父窗体的的错误提示? 设置TSkindata.skincontrols.xcFastReport = true 就可以解决这个问题。

9 使用ReportBuilder 出现了“无效操作，控件没有父窗体的错误提示?

你可以在TSkindata.OnformSkin 事件中取消美化这个控件。代码如下: procedure Tform1.SkinData1FormSkin(Sender: TObject;

aName: String; var DoSkin: Boolean);

begin

//'TppPrintPreview' 就是要取消美化的窗体名称。

if aName='TppPrintPreview' then doskin:=false;

end;

10 如何存取skin文件的颜色?

你可以借助Tskindata.colors[] 属性来存取颜色。

比如说, 窗体的背景色是: 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自定义细节.

12 怎样取消美化某个窗体或控件?

设置form.tag=99 取消美化这个窗体。

13 如何在美化一个工程的窗体标题栏和菜单的风格?

设置TSkindata.skincontrols.xcMainmenu = false .

--------------------------------------------------------------------------------

相关VCLskin 下载链接: https://www.360docs.net/doc/0019076720.html,/sort/tag/VCLSkin

本文来自CSDN博客，转载请标明出处：

https://www.360docs.net/doc/0019076720.html,/weide001/archive/2009/04/22/4100975.aspx

如果是VCLSkin的话：

创建新的工程，在控件面板的最下方增加了VCLSkin 栏，下面有TSkinData 和TSkinStore 两个控件

把TSkinData 拖放到你创建工程的窗体下。

设置TSkinData 中的Skinstore属性，指定皮肤文件。皮肤文件在下载的Skins 文件夹当中。

把TSkinData中的Active属性设置为true激活效果，默认是false 。

编译可看到效果。

https://www.360docs.net/doc/0019076720.html,/view/9f7a3636f111f18583d05ac1.html

提示信息：

先在每个控件的hint属性里面添上您要显示的内容，

再设showhint属性为true就可以了呀!

procedure TForm1.FormMouseDown(Sender:TObject;Button:TMouseButton;S hift:TShiftState;X,Y:Integer);

begin

ax:=x;

ay:=y;

end;

procedure TForm1.FormMouseUp(Sender:TObject;Button:TMouseButton;Shif t:TShiftState;X,Y:Integer);

begin

with Form1 do

begin

if start then

Canvas.Pen.Width:=1;

Canvas.Pen.Color:=clBlack;

Canvas.Pen.Style:=psSolid;

{以下代码画折线}

Canvas.MoveTo(ax,ay);

Canvas.LineTo(ax+40,ay);

Canvas.LineTo(ax+40,y);

Canvas.LineTo(x,y);

{以下代码画箭头}

Canvas.MoveTo(x-5,y-5);

Canvas.LineTo(x,y);

Canvas.LineTo(x-5,y+5);

start:=false;

end;

end;

{$R *.dfm}

end.

----------------------------------------------------------------------

在 "if start then" 之后应加begin,否则只执行其后的一条语句.

改为如下:

if start then

begin

Canvas.Pen.Width:=1;

Canvas.Pen.Color:=clBlack; Canvas.Pen.Style:=psSolid; {以下代码画折线}

Canvas.MoveTo(ax,ay);

Canvas.LineTo(ax+40,ay); Canvas.LineTo(ax+40,y); Canvas.LineTo(x,y);

{以下代码画箭头}

Canvas.MoveTo(x-5,y-5); Canvas.LineTo(x,y);

Canvas.LineTo(x-5,y+5);

start:=false;

end;