unit Unit1;

interface

uses

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

    Dialogs, CometSkin, StdCtrls, ComCtrls, ExtCtrls, Menus;

const

    IDM_MODULE_HOME = ;

    IDM_MODULE_PROTEC = ;

    IDM_MODULE_SEARCH = ;

    IDM_MODULE_TOOLS = ;

    IDM_MODULE_CLOCK = ;

    IDM_MODULE_HISTORY = ;

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', , , , );

    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.