delphi for DirectUI界面库

下面是form代码

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, CometSkin, StdCtrls, ComCtrls, ExtCtrls, Menus;
const

IDM_MODULE_HOME = 100;
IDM_MODULE_PROTEC = 101;
IDM_MODULE_SEARCH = 102;
IDM_MODULE_TOOLS = 103;
IDM_MODULE_CLOCK = 104;
IDM_MODULE_HISTORY = 105;

type
TForm1 = class(TSkinForm)
Label1: TLabel;
PopupMenu1: TPopupMenu;
N11: TMenuItem;
Button1: TButton;

procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure WMControlClick(var msg: TMessage); message
WM_SkinControl_Click;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
{$R '.\Res\SkinRes.RES'}

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetBkImage('BkImage1_jpg', 'Skin', 255, 150, 60, 60);
AddModuleButton(IDM_MODULE_HOME, '首 页', 'Module_Home_png', 'Skin');
AddModuleButton(IDM_MODULE_PROTEC, '保 护', 'Module_protec_png', 'Skin');
AddModuleButton(IDM_MODULE_SEARCH, '查 杀', 'Module_search_png', 'Skin');
AddModuleButton(IDM_MODULE_TOOLS, '工 具', 'Module_tools_png', 'Skin');
AddModuleButton(IDM_MODULE_CLOCK, '任 务', 'Module_clock_png', 'Skin');
AddModuleButton(IDM_MODULE_HISTORY, '记 录', 'Module_history_png', 'Skin');
AddModuleButton(IDM_MODULE_HISTORY, '记 录', 'Module_history_png', 'Skin');
SetModuleCheck(IDM_MODULE_HOME);
end;

procedure TForm1.WMControlClick(var msg: TMessage);
var
CtlID: Integer; //控件ID
nIndex: Integer; //控件索引
pt: TPoint;
begin
CtlID := msg.WParam;
nIndex := msg.LParam;
case CtlID of
SCM_MAINMENU:
begin
//MessageBox(Handle, '你点击[主菜单]了', '提示', MB_ICONINFORMATION);
GetCursorPos(pt);
PopupMenu1.Popup(pt.X,pt.Y);
end;
IDM_MODULE_HOME:
begin
SetModuleCheck(CtlID);
MessageBox(Handle, '你点击[首 页]了', '提示',
MB_ICONINFORMATION);
end;

IDM_MODULE_PROTEC:
begin
SetModuleCheck(CtlID);
MessageBox(Handle, '你点击[保 护]了', '提示',
MB_ICONINFORMATION);
end;
IDM_MODULE_SEARCH:
begin
SetModuleCheck(CtlID);
MessageBox(Handle, '你点击[查 杀]了', '提示',
MB_ICONINFORMATION);
end;
IDM_MODULE_TOOLS:
begin
SetModuleCheck(CtlID);
MessageBox(Handle, '你点击[工 具]了', '提示',
MB_ICONINFORMATION);
end;
IDM_MODULE_CLOCK:
begin
SetModuleCheck(CtlID);
MessageBox(Handle, '你点击[任 务]了', '提示',
MB_ICONINFORMATION);
end;
IDM_MODULE_HISTORY:
begin
SetModuleCheck(CtlID);
MessageBox(Handle, '你点击[记 录]了', '提示',
MB_ICONINFORMATION);
end;
end;
end;
end.

开源DirectUI界面库
微软 
https://github.com/jameskeane/directui
中国
http://code.google.com/p/duilib/
俄国
https://github.com/rsdn/avalon