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

delphi for DirectUI界面库

上一篇:windows 下获取文件夹下的文件名称


下一篇:PHP函数篇详解十进制、二进制、八进制和十六进制转换函数说明