下面是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