以XPManifest组件显示界面

实例说明

大多数的界面都比较的单调，可以用TXPManifest组件使窗体以XP的形式来显示。如果菜单的内容比较少，可以采用按钮的形式显示菜单，不但美观大方，而且操作灵活，具有很强的动感效果。当指针指向按钮时，按钮将凸出显示且颜色改变。下面介绍按钮显示菜单的设计方法。本例运行效果如图1.19所示



图。1.19以XPManifest组件显示界面

技术要点

下面介绍一下如何对窗体的关闭进行提示。窗口正要关闭，但是没有关闭之前会触发OncloseQuery事件，该事件中的参数CanClose是Boolean型的，如果设置该参数为False，窗口将不会被关闭。所以在该事件处理代码中，可以提示用户是否关闭程序。如果用户不想关闭程序，则设置该参数为False。利用MessageBox参数的返回值，可以知道用户所选择的按钮。该函数声明如下：

function MessageBox（const Text ,Caption:PChar;Flags:Longint）:Integer;

参数说明：

Text 对话框中显示的字符串。

Caption 对话框的颜色。

Flags 按钮及图表标记。

如果用户单击了“否” 按钮则该函数返回值为ID_NO。

DateTimeTostr() 的函数原型为：

function DateTimeToStr（DateTime：TDateTime）：string；overload;

function DateTimeToStr(DateTime:TDateTime;coust Format Setting:TFormatSettings):string overload;

参数说明：

DateTime 日期时间类型。

功能：将TDateTime值转换成字符串类型。

注意：要对关闭窗体进行提示，必须在窗体的OnClose事件中编写代码。

实现过程

1. 新建一个标准工程，创建一个新窗体，默认窗体的Name属性为Form1。

2. 添加SpeedButton、Image和XPManifest组件。

3. 相关组件的主要属性如表1.8所示。



表1.8 主要组件的属性设置

4.主要程序代码如下：

procedure TMAIN.SpeedButton6Click(Sender: TObject);

begin

CLOSE;

end;

procedure TMAIN.FormClose(Sender: TObject; var Action: TCloseAction);

begin //退出系统提示

if MessageBox(0,'是否要退出本系统？','提示信息',MB_YESNO+MB_ICONQUESTION)=IDYES then

begin

Application.Terminate;

end

else

begin

Action := caNone;

end;

end;