Da man den Shortcut einstellen kann, habe ich das so gelöst für 26 Actions:
Delphi-Quellcode:
procedure TfMain.FormCreate(Sender: TObject);
var
Add : string;
i : Byte;
begin
{...}
Add := ReadString('Shortcuts', 'KofferSC', 'Strg+');
{...}
for i := 1 to 26 do begin
(FindComponent('Action' + IntToStr(i)) as TAction).ShortCut := TextToShortCut(Add + Chr(64 + i));
end;
end;
Und warum funktioniert dieses Kontrukt nicht?
Code:
Add: 'Strg+'
Chr(64 + i): 'A'
Action1.shortcut: 0
i: 1
Das sagt er mir, wenn ich dort debuge
