[Delphi] Вопрос про “горячие клавиши” THotKey

01.01.2001

[Delphi] Вопрос про "горячие клавиши" THotKey
Скажите, как сохранить горячие клавиши из компонента THotKey, например, в INI-файл.
И при запуске программы загрузить их в тот же HotKey1 ???
Если не трудно, пример в виде кода.

  • ...
    implementation

    uses inifiles;

    {$R *.DFM}

    procedure TForm1.Button2Click(Sender: TObject);
    var S:TSaveDialog;
    Ini:TIniFile;
    begin
    S:=TSaveDialog.Create(self);
    if S.Execute then begin
    Ini:=TIniFile.Create(S.FileName);
    ini.WriteInteger('Hot keys','key1',HotKey1.HotKey);
    Ini.Free;
    end;
    S.Free;
    end;

    procedure TForm1.Button3Click(Sender: TObject);
    var S:TOpenDialog;
    Ini:TIniFile;
    n:integer;
    begin
    S:=TOpenDialog.Create(self);
    if S.Execute then begin
    Ini:=TIniFile.Create(S.FileName);
    HotKey1.HotKey:=ini.ReadInteger('Hot keys','key1',0);
    Ini.Free;
    end;
    S.Free;
    end;

Вас заинтересует