Delphi 设置快捷键

= 'Repeat %s(&' + #32 + ')'; //设置快捷键 这个是设置空格的 如果设置字符， 就可以这样写= 'Repeat %s(&H)‘

const

SRepeatCmdCaption_TME = 'Repeat %s(&' + #32 + ')'; //设置快捷键

SRepeatHint_TME = 'Repeat %s';

var

sLastHint, sLastCaption: string;

begin

if not CheckCanExecute then Exit;

if FRepeatAction <> nil then

begin

acRepeatCmd.Visible := (FRepeatAction as TAction).Visible;

acRepeatCmd.Enabled := (FRepeatAction as TAction).Enabled;

acRepeatCmd.ShortCut := 32;

sLastHint := (FRepeatAction as TAction).Hint;

sLastCaption := (FRepeatAction as TAction).Caption;

sLastCaption := GetSubString(sLastCaption, '(', 1);

acRepeatCmd.Hint := Format(SRepeatHint_TME,[sLastHint]);

if sLastHint <> '' then

acRepeatCmd.Caption := Format(SRepeatCmdCaption_TME, [sLastHint])

else

acRepeatCmd.Caption := Format(SRepeatCmdCaption_TME, [sLastCaption]);

end;

end;