新手求mainmenu,popupmenu的用法 mainmenu,popupmenu的菜单项怎么用代码添加,click事件怎么用代码写啊,新手求助!小弟只会在属性卡里填写caption和n1click事件,换成代码怎么写啊! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus;type TForm1 = class(TForm) MainMenu1: TMainMenu; p1: TMenuItem; procedure FormCreate(Sender: TObject); private { Private declarations } procedure MyClick(Sender:TObject); public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var item:TMenuItem;begin item := TMenuItem.Create(MainMenu1); item.Caption := 'Menu1'; item.OnClick := MyClick; MainMenu1.Items.Add(item);end;procedure TForm1.MyClick(Sender: TObject);begin ShowMessage('ok');end;end. 楼上的在item.OnClick := myclick;这里会报错啊!另外在菜单下拉列表里的项怎么加哦 一楼的代码已经写的很清楚了,如果还不明白就在CSDN里面查一下以前的贴子。 帮我看下这一句话有没有错误 如何将繁体字转换在简体字? 如何去掉图形下面的x轴,和y轴? 如何将CHAR类型转换为RECORD,急 大哥们帮忙把这个过程做成dll,急急急急呀!!!!! 如何解决闪烁的问题? 一个关于MessageBox的问题?如何在MessageBox中显示系统默认的图标啊? 我需要MDAC SDK文档,我想知道数据类型的具体说明,有谁能给,尽快!!!马上给分!! 小问题也能考倒你,回答出来给50分! 用台式机控制笔记本电脑鼠标定位问题 var InvokeFunc: function: IInterface 新手 请教两个简单按钮问题
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
p1: TMenuItem;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure MyClick(Sender:TObject);
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
item:TMenuItem;
begin
item := TMenuItem.Create(MainMenu1);
item.Caption := 'Menu1';
item.OnClick := MyClick;
MainMenu1.Items.Add(item);
end;procedure TForm1.MyClick(Sender: TObject);
begin
ShowMessage('ok');
end;end.