菜鸟问题,随便来两个帮帮忙! 先定义执行的过程:如procedure TForm1.onOpenClick(Sender: TObject);begin//end;然后来再openmenu.onclick := onopenclick; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var miOpen: TMenuItem;begin //创建菜单 miOpen := TMenuItem.Create(Self); //把新创建的菜单挂到原来菜单miFile的子菜单中 miFile.Insert(0, miOpen); //重新定位Open新菜单单击事件OpenFile miOpen.OnClick := OpenFile; miOpen.Caption := 'Open';end; 在哪定义procedure TForm1.onOpenClick(Sender: TObject);begin//end;哦 定义procedure TForm1.onOpenClick(Sender: TObject);在implements定义在interface中声明 delphi中出现这种问题 Operator not applicable to this operand type怎么解决?在线等待,急急急! 大侠们有知道什么控件可以实现类似于建模工具那种图形界面的嘛? 求救!! 高分求读卡器? 请问,游戏中的鼠标和桌面上的鼠标有什么区别。 怪问题,真怪。搞得头大了。有人会吗? 如何才能显示GIF文件? 我不做程序员,想找个女朋友 请问如何将报表翻页,报表上的哪几个翻页按钮怎么用呀??????? 正确的怎么写啊! 关于Image控件的问题 什么地方有kdev skin下在?
miOpen: TMenuItem;
begin
//创建菜单
miOpen := TMenuItem.Create(Self);
//把新创建的菜单挂到原来菜单miFile的子菜单中
miFile.Insert(0, miOpen);
//重新定位Open新菜单单击事件OpenFile
miOpen.OnClick := OpenFile;
miOpen.Caption := 'Open';
end;
begin
//
end;
哦