Delphi 完全时尚手册之 Visual Style 篇
这里先说说两个概念：Theme(主题)和 Visual Style 。Theme 最早出现在 Microsoft Plus! for Windows 95 中，是 Windows 中 Wallpaper、Cursors、Fonts、Sounds 、Icons 等的设置值集合。Visual Style 在 Windows XP 中才被引入，Visual Style 规定了 Contorls 的外观，另外还包括使用这些外观的一套 API 。使用 Visual Style 必须要 ComCtl32.dll 6，而 ComCtl32.dll 6 是不能被分发到以前版本的 Windows 中的，所以只能在 Windows XP 下使用 Visual Style。
Delphi 7 (后面简称 7 吧)对 Visual Style 提供了较好的支持。首先 7 将那个 Menifest 封装成了 VCL - TXPMenifest，另外增加了 UxTheme.pas 单元，里面是对 Visual Style 的一套 API 及其结构、常数等的引用声明（大概有 47 个API 函数），更重要的是 7 还增加一个 Themes.pas 单元，里面是对这套 API 的更进一步的简化和封装，7 下的 Win32 控件对 Visual Style 的支持较 Delphi 6有了很大改观，就是这个单元的功劳。
一般来说要使 7 下编译的程序在 Windows XP 具有 Visual Style ，只需在主窗体上放入 VCL - TXPMenifest 即可，但对于一些非标准或是自画的控件，还是经典的界面。这里就说一下如何用 Themes.pas 中提供的方法使这些控件具有 Visual Style 。
Themes.pas 中只有一个类：TThemeServices 。这个类有一个重要的属性： ThemesEnabled (Boolean 类型)，就是判断在当前程序能不能使用 Visual Style ，这个属性只有在程序使用了 TXPMenifest 并且在 Windows XP 下运行并且使用了 Windows XP 的主题（即桌面主题不是 Windows 经典）才为 True ，由于程序要运行在以前版本的 Windows 下，所以你的程序也得提供这个属性为 False 时的处理过程（一般就是原有的处理过程）。还要提一下这个类封装的几个重要函数：DrawEdge 用来画控件边界的，DrawElement 用来画整个界面的，DrawText 用来写字的。这个类还处理了 WM_THEMECHANGED 消息，这样当我们在改变桌面主题后，程序会自动调整外观。再说一下我们最常用到的一个函数（多态函数）：GetElementDetails ，这个函数的返回值在上面的几个 DrawXXX 函数中要用到，这个函数的输入值是 24 个枚举类型中的元素，这 24 个枚举类型在 Themes.pas 单元开头定义（从第二个 TThemedButton 开始直到 TThemedWindow）。最后，我们不去直接使用这个类，在 Themes.pa
相关文档：
作为delphi的铁杆，在正式Delphi2010推出后，我当然也要尝尝新鲜，用电驴下来以后安装。呵呵二十多分钟就搞定了，启动也特快，简单使用一下，棒棒！！看来Delphi（太阳神）又回来了，如是我决定抛弃delphi2007，用这个新家伙。我所用的第三方组件主要是RemObjects和reportbuilder，reportbuilder还没有找到安装forD2009 Ful ......
此文适合Delphi新手阅读，特别是连接数据库方面还一懂半懂甚至根本不懂的新手；
--------------------------但总体显得有点乱-------------------------
本文章以Delphi 7和SQL Server 2000为例，控件名均为系统默认，如Unit1,DataModule1,Edit1,ADOCommand1,ADODataS ......
利用Windows API函数WritePrivateProfileString 和GetPrivateProfileString可对.INI文件进行读写操作。其实，对.INI文件的读写完全可以利用Delphi的内置函数来实现。下面就介绍一些对.INI文件读写时相关的类及其属性方法。
1、TIniFile对象
以Delphi中，定义了一个TIniFile对象，将.INI文件封装在其中，并提供一些方法� ......
Delphi 与 C/C++ 数据类型对照表
Delphi数据类型C/C++
ShorInt
8位有符号整数
char
Byte
8位无符号整数
BYTE,unsigned short
SmallInt
16位有符号整数
short
Word
16位无符号整数
unsigned short
Integer,LongInt
32位有符号整数
int,long
Cardinal,LongWord/DWORD
32位无符号整数
unsigned long
Int6 ......
procedure TForm1.Button1Click(Sender: TObject);
Var
Num: Integer;
Begin
Try
Num:=StrToInt(Edit1.Text);
Edit2.Text:=IntToStr(Num*Num);
Except
On EConvertError Do ShowMessage(Edit1.Text+'无法转成整数!');
......
