16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.MainForm.Menu := MainMenu1;
end;
//等同于:
procedure TForm1.Button1Click(Sender: TObject);
begin
self.Menu := MainMenu1;
end;
property Menu: TMainMenu read FMenu write SetMenu stored IsForm;
FMenu :只是一个变量。因此你需要对他赋值。
调用前最好对Menu进行判断,看看是不是为nil就可以了。
例子如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.MainForm.Menu := MainMenu1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
caption := IntToStr(Application.MainForm.Menu.Items.Count);
end;
如果你直接点击Button就会报告和你一样的错误,如果你先点击button1,就Ok了。