Код: Выделить всё
//...
var MI:TMenuItem;
begin
MI := MainWindow.Menu.Items.Find('Файл').Find('Открыть');
MI.ShortCut := ShortCut(79,[ssCtrl]);
//...
Выдает:

Код: Выделить всё
//...
var MI:TMenuItem;
begin
MI := MainWindow.Menu.Items.Find('Файл').Find('Открыть');
MI.ShortCut := ShortCut(79,[ssCtrl]);
//...