procedure TForm1.Button1Click(Sender: TObject);
var
b:TMenuItem;
begin
b:=TMenuItem.Create(a);
b.Caption:=Edit1.Text;
a.Add(b);
end;
var
b:TMenuItem;
begin
b:=TMenuItem.Create(a);
b.Caption:=Edit1.Text;
a.Add(b);
end;
解决方案 »
- XE2下的"Cannot assign a TFont to a TFont"
- richviewedit插入图片函数问题
- 大家帮我看个动态树的问题。不知道问题出在哪里?
- 为什么我一ShowModalForm(FRM),就抱'Canot make a visible window Modal'错误
- 请教:Delphi作的DLL问题
- 我有个问题要问————在线等待??!!!!
- 如何查询?。。。。。。。(表和表之间的)
- 请问TDataTime在哪里定义的?
- 如何获得远程目标主机的共享文件?
- 自定义过滤输入控件,高手们请提供帮助!
- 1 和 ! 或(2和·)的键值是一样的我如何能通过消息判断按下1 和 !
- 如何在delphi 中动态创建一个未import的ocx
例如 你有个菜单是 MainMenu:TMenu;其中有个菜单项目Caption是"其他项目" 它的名称为 a