菜鸟问题，随便来两个帮帮忙！

Question

先定义执行的过程:如
procedure TForm1.onOpenClick(Sender: TObject);
begin
//
end;
然后来再openmenu.onclick := onopenclick;

Answer 1

var
  miOpen: TMenuItem;
begin
  //创建菜单
  miOpen := TMenuItem.Create(Self);
  //把新创建的菜单挂到原来菜单miFile的子菜单中
  miFile.Insert(0, miOpen);
  //重新定位Open新菜单单击事件OpenFile
  miOpen.OnClick := OpenFile;
  miOpen.Caption := 'Open';
end;

Answer 2

在哪定义procedure TForm1.onOpenClick(Sender: TObject);
begin
//
end;
哦

Answer 3

定义procedure TForm1.onOpenClick(Sender: TObject);在implements定义在interface中声明