公共变量,声明问题

Question

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, shellAPI, Menus, Unit2;type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    add1: TMenuItem;
    enable1: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure add1Click(Sender: TObject);
    procedure enable1Click(Sender: TObject);  private
    { Private declarations }
   NormalIcon,DisabledIcon:Ticon; //正常和失效两种情况下图标
   status:Boolean;     //标志允许使用和禁止使用
   procedure InstallIcon;
   procedure changeIcon(S:boolean);
   procedure UnInstallIcon;
   procedure IconOnclick(var message: Tmessage) ;
   message MI_ICONEVENT;   //这句添加是什么意思?这样添加会出现错误
    public    { Public declarations }  end;var  Form1: TForm1;
const
 Icon_ID=1;  //ICON的ID标志
 MI_ICONEVENT=WM_USER+1;    //这句添加同样出现错误!!
implementation{$R *.dfm}
错误提示:
[错误] Unit1.pas(30): Undeclared identifier: 'MI_ICONEVENT'
[错误] Unit1.pas(30): Illegal message method index
[错误] Unit1.pas(44): Identifier redeclared: 'MI_ICONEVENT'请问怎么修改?谢谢

Answer 1

procedure IconOnclick(var message: Tmessage) ; 
message MI_ICONEVENT;  //这句添加是什么意思?这样添加会出现错误把这两句合起来，第二句加到第一句最后  表示消息方法
procedure IconOnclick(var message: Tmessage); message MI_ICONEVENT;这个改了，后面那个错误应该不会有了。

Answer 2

const 
Icon_ID=1;  //ICON的ID标志 
MI_ICONEVENT=WM_USER+1;    //这句添加同样出现错误!! 将以上内容前置,放到函数之前

Answer 3

1楼,我把 procedure IconOnclick(var message: Tmessage) ; message MI_ICONEVENT;
放上去了一样是那个错
2楼你说把那段放在哪之前?