关于为菜单项设置快捷键的问题
关于为菜单项设置快捷键的问题 VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061224205210144.html
我想在程序中动态改变菜单项的快捷键,比如我要为菜单“EXIT”设置快捷键“CTRL+E”。这里的“CTRL+E”是存在数据库里的,我要取出来,动态设置。
请问这个该怎么做?
http://www.delphi2007.net/DelphiVCL/html/delphi_20061224205210144.html
我想在程序中动态改变菜单项的快捷键,比如我要为菜单“EXIT”设置快捷键“CTRL+E”。这里的“CTRL+E”是存在数据库里的,我要取出来,动态设置。
请问这个该怎么做?
//参考:
procedure TForm1.Button1Click(Sender: TObject);
begin
Exit1.ShortCut := TextToShortCut('CTRL+E');
end;
procedure TForm1.Exit1Click(Sender: TObject);
begin
Close;
end;