它提示 unknown directive "message" 我不知道怎样该(50分)

paulhong · 2003-07-21

unit Unit4; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls, Buttons,DateUtils, AppEvnts,ShellAPI, Menus;    const MY_MESSAGE = WM_USER + 1000; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     { Private declarations }          //procedure WMNID(var msg:TMessage); message MY_MESSAGE;              public     { Public declarations }   end; var   Form1:TForm1;     NotifyIcon:TNotifyIconData; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin   with NotifyIcon do       begin         cbSize:=SizeOf(TNotifyIconData);         Wnd:=Handle;   //指向当前窗体Form1的句柄         uID:=1;         uFlags:=NIF_ICON ;//or NIM_MESSAGE or NIM_TIP;         uCallBackMessage:=MY_MESSAGE;         hIcon:=Application.Icon.Handle;       end;      Shell_NotifyIcon(NIM_ADD,@NotifyIcon);      //SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);//在任务栏上隐藏 end;  procedure WMNID(var msg:TMessage); message MY_MESSAGE;   begin  case msg.LParam of       WM_LBUTTONUp: Form1.Visible:=not Form1.Visible;       WM_RBUTTONUP: ShowMessage('您点击的是右键');    End; End; 它提示 unknown directive "message" 我不知道怎样该 procedure TForm1.FormDestroy(Sender: TObject); begin   Shell_NotifyIcon(NIM_DELETE,@NotifyIcon); end; end.

beta · 2003-07-21

procedure WMNID(var msg:TMessage);[red]{ message MY_MESSAGE;} //这里去掉这个[/red]  begin case msg.LParam of      WM_LBUTTONUp: Form1.Visible:=not Form1.Visible;      WM_RBUTTONUP: ShowMessage('您点击的是右键');   End; End;

paulhong · 2003-07-23

接受答案了.

它提示 unknown directive "message" 我不知道怎样该(50分)

paulhong

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

paulhong

Unregistered / Unconfirmed

Similar threads