zoukankan      html  css  js  c++  java
  • 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;

  • 相关阅读:
    函数宏实现循环左移
    函数宏判断小端
    Linux下32位与64位数据类型大小
    转:C语言嵌入式系统编程之软件架构篇
    转:详解大端小段模式
    time函数计算时间
    匈牙利命名法
    20131030
    20131029
    20131028
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/8058809.html
Copyright © 2011-2022 走看看