procedure TForm1.FormCreate(Sender: TObject); var i: integer; begin for i:=0 to ComponentCount-1 do if Components[i] is TMenuItem then if (Components[i] as TMenuItem).Caption = N1.Caption then //N1的Caption是你操作菜单项的Caption (Components[i] as TMenuItem).OnClick := Button1Click; end;procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('Hello World!'); end;
我原来想使用
onclick:='事件',但这样写是错的,
应为onclick:=事件,这样我就不太好用变量来动态改变了。
功能(方法)放入在ActionList中。
然后LOAD相关的DLL就可以了
var
i: integer;
begin
for i:=0 to ComponentCount-1 do
if Components[i] is TMenuItem then
if (Components[i] as TMenuItem).Caption = N1.Caption then //N1的Caption是你操作菜单项的Caption
(Components[i] as TMenuItem).OnClick := Button1Click;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Hello World!');
end;
采用动态DLL文件的形式将各菜单功能模块动态载入。
采用数据库技术来实现菜单的使用权限定制。
可以动态载入图标文件来定制菜单图标。
根据用户的点击频率智能的调整菜单。
[email protected]