想使用自己的menuitem.onclick函数
但是除了tobject之外还想传一个字符串。
请问如何改onclick我是动态creat了一个menuitem.
想menuitem.onclick:=myonclick,不行啊。
说calling convertion differs
但是除了tobject之外还想传一个字符串。
请问如何改onclick我是动态creat了一个menuitem.
想menuitem.onclick:=myonclick,不行啊。
说calling convertion differs
解决方案 »
- 如果查看Delphi 的DLL内的方法,或如何反编译这个DLL,高手进来。
- 远程操作SQL2000的问题??急急!!
- 结婚散分咯~(之六)
- DELPHI安装出问题了~大虾来救命啊
- 关于用idTcpXXXXX控件传输文件的问题
- 如何截取Windows窗体标题双击事件?????????????
- 我想把stringgrid内容添加到RAVE报表中,请问大虾们如何做呢?
- 如何逐行读取文本文件内容到ADOConnection的ConnectionString属性中???
- constdef
- Delphi中使用SQL,汉字显示不正常。
- 好久都没来混过什么了,散分~~生活好无趣,也散分~~~~
- 初学者又一简单的问题?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
asfasf1: TMenuItem;
asfasffasf1: TMenuItem;
Button1: TButton;
procedure MyClick(Sender:TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.MyClick(Sender: TObject);
begin
ShowMessage('asd');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
asfasffasf1.OnClick:=MyClick;
end;end.
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
asfasf1: TMenuItem;
asfasffasf1: TMenuItem;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure MyClick(Sender: TObject;str:string);
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.MyClick(Sender: TObject;str:string);
begin
ShowMessage(str);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
asfasffasf1.OnClick:=MyClick(sender,'test');
end;end.