求助...未明说标识符 在USES加入什么啊

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus,StdCtrls;type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    PopupMenu1: TPopupMenu;
    Label1: TLabel;
    N2: TMenuItem;
    N7: TMenuItem;
    N3: TMenuItem;
    N11: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N12: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N15: TMenuItem;
    N1: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
    PullDown,Item:TMenuItem;
    Position,I:integer;
begin
  //生成下拉菜单
  PullDown:=TMenuItem.Create(self);
  PullDown.Caption:='文字大小';
  PullDown.OnClick:=sizeclick;//这里出现的Undeclared identifier: 'sizeclick' 

Answer 1

sizeclick应当是一个过程(类型TNotifyEvent, 定义：TNotifyEvent = procedure(Sender: TObject) of object;) :在这句下面procedure FormCreate(Sender: TObject); 
加上：
  procedure sizeclick(Sender: TObject);在procedure TForm1.FormCreate(Sender: TObject); 之前加上：
procedure TForm1.sizeclick(Sender: TObject);
begin
  //这里自己写代码。
end;先去看看基础的东西吧！

Answer 2

OnClick应该指向一个具体的过程，例如：
procedure.TForm1.sizeclick(Sender:TObject);
begin
end;
....
Button.OnClick = sizeclick;
....
 
你程序中，sizeclick没有定义，系统当然要提示错误了。

Answer 3

我猜你的代码是从哪里COPY过来的,你可以去那里找找关于它的过程代码,也COPY过来就可以用了,你是没COPY全,所以才会这样罗

Answer 4

加procedure sizeclick(Sender:TObject);