Установка клавиш быстрого доступа

Тема в разделе "Delphi - FAQ", создана пользователем Vadik(R), 30 дек 2007.

  1. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    Люди, пусть есть код:
    Код (Text):
    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;

    type
    TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    edit1.Text:='ok';
    end;

    end.
    Короче, кликая по кнопке, в поле едит появляеться ОК.
    Вот сам вопрос: если присвоить имя кнопке &Button1, то кликнуть по ней можно нажав <Alt>+<B>
    если присвоить имя кнопке &!utton1, то кликнуть по ней можно нажав <Alt>+<!>
    А как сделать так, чтобы подчеркивание было символа амперсанда? То есть клавиши быстрого доступа были <Alt>+<&>? &&&Button1 - не подходит.
     
  2. Chernobyl

    Chernobyl Гость

    Ну с Alt-ом у меня не получилось, а просто с буквой например &Help или Иг&ра у меня получилось только есть один минус если &Help то должен стоять англиский язык
    А если Иг&ра то RU иначе не будет действовать :(
    Так что можно предупредить пользователя что клава RU или EN
    Друговввво способа я пока не нашёл :unsure:
     
  3. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    <!--QuoteBegin-Vadik&reg;+30:12:2007, 13:44 -->
    <span class="vbquote">(Vadik&reg; @ 30:12:2007, 13:44 )</span><!--QuoteEBegin-->амперсанда
    [snapback]91866" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    и как Вы , интересно мне знать зделаете это на клавиатуре...
    Вам надо будет нажать Shift+Alt+7 ... многовато как то получаеться
     
  4. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    Мне просто интересно, возможно ли вообще такое? Раньше я думал, что невозможно напечатать одинарную кавычку, так как в них пишется строка. Ну ничего, разобрался. А с амперсандом на кнопке - нет.
     
  5. Chernobyl

    Chernobyl Гость

    :) Возможно всё! Только надо уметь это делать.
     
  6. zubr

    zubr Гость

    Вариантов много: WM_SETHOTKEY, RegisterHotKey. Вот вариант попроще через VCL:
    1. Берем компонент TMainMenu, создаем новое меню TMenuItem.
    2. В новом меню в свойстве ShortCut=Shift+7
    3. Для нового меню в инспекторе объектов для обработчика OnClick выбираем обработчик нужной кнопки.
    4. Если не хотим, чтобы данное меню было видно, делаем для данного меню Visible=False
    5. Пользуемся.
     
  7. Chernobyl

    Chernobyl Гость

    Или удаляем из Form.menu надпись MainMenu1 если меню совсем не нужно
     
  8. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    Это все хорошо, а можно ли это как-то сделать, чтобы амперсанд на кнопке был подчеркнутым?
     
  9. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    В каком языке программирования можно подчеркнуть амперсанд?
    И вообще, кто в этом виноват: разработчики Delphi или компания MicroSoft? Из-за кого из них я не могу подчеркнуть амперсанд?
     
  10. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    Да я это специально написал, темку уже надо бы в юмор перенести.
    П. С. А кто такие БГ?

    ----
    О, господи, это ж Билл Гейтс... :)

    Он же еще виноват, что когда я гуляю по вашему форуму и открываю много страниц во вкладках, то мой браузер виснет :)
     
Загрузка...
Похожие Темы - Установка клавиш быстрого
  1. Serj100500
    Ответов:
    4
    Просмотров:
    45
  2. geliz
    Ответов:
    1
    Просмотров:
    689
  3. Vander
    Ответов:
    14
    Просмотров:
    2.540
  4. lionk
    Ответов:
    4
    Просмотров:
    752
  5. dimat
    Ответов:
    50
    Просмотров:
    6.311

Поделиться этой страницей