快捷键控制

Question

在FromCreat的时候我写       HotKey1.HotKey:=Mainf.N1.ShortCut;在HotKey1Change事件中       Mainf.N1.ShortCut:=HotKey1.HotKey;但当程序退出后再重启就恢复到原始状态，请问用HotKey控件修改快捷键以后如何保持呢？

Answer 1

在HotKey1Change事件中
procedure TForm1.HotKey1Change(Sender: TObject);
var
  IniFile: TIniFile;
begin
  Self.N1.ShortCut:=HotKey1.HotKey
  IniFile := TIniFile.Create('d:\test.ini');
  IniFile.WriteInteger('HotKey', Self.N1.Name, HotKey1.HotKey);
  IniFile.Free;
end;
在FromCreat的时候
procedure TForm1.FormCreate(Sender: TObject);
var
  IniFile: TIniFile;
begin
  IniFile := TIniFile.Create('d:\test.ini');
  HotKey1.HotKey := IniFile.ReadInteger('HotKey', Self.N1.Name, HotKey1.HotKey);
  IniFile.Free;
end;如果是多个菜单键需要保存，可用循环