Question

各位老大帮看看这个DELPHI程序哪里出错了

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
i:=getsystemmenu(handle,false);
appendmenu(i,mf_separator,0,nil);
appendmenu(i,mf_string,100,'我的菜单(&e)');
end;
procedure TForm1.sysmenu(var msg:twmenuselect); //其中这个地方报错了.
begin
if msg.IdItem=100 then
showmessage('我选择了我的菜单')
else
inherited;
end;

end.

各位老大 帮看看要怎么改， 我的 Q 88299274 如果能加QQ解答，追加30分！

Answer 1

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private

在这里添加：procedure sysmenu(var msg:twmenuselect);

改成：
type
TForm1 = class(TForm)
procedure sysmenu(var msg:twmenuselect);
procedure FormCreate(Sender: TObject);
private

Answer 2

肯定错啊，在Private或Public中药声明这个函数才可以的。procedure sysmenu(var msg:twmenuselect);

Answer 3

报错提示的信息呢？

Answer 4

procedure TForm1.sysmenu(var msg:twmenuselect); //其中这个地方报错了.
未被定义函数