VPF::Alt+буква издает звук - Форум программистов

Gershkovich

Дата 26.5.2006, 14:21 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

Всем привет!

В своем приложении я реализую "горячие" клавиши вот так:

Код


...
MyWin.KeyPreview:= true;
...

procedure TMyWin.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (ssCtrl in Shift) or (ssAlt in Shift) then begin
    case Key of
      65 : // 'A' call some proc;
      67 : // 'C' call some proc;
      69 : // 'E' call some proc;
    else
      inherited;
    end;
  end else begin
    inherited;
  end;
end;

Все здорово , но нажатие кнопок ALt+буква вызывает звук
(как при открытии message box-a)

С Ctrl все нормально.

В чем причина ? Не знаю даже в какую сторону думать.

Заранее спасибо.

Rennigth

Дата 26.5.2006, 14:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

а ты понажимай с альтом буковки в каком-нибудь другом приложении smile

хоть в IExplorer-е...

--------------------

(* Honesta mors turpi vita potior *)

Snowy

Дата 26.5.2006, 14:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Это значит, что у тебя есть главное меню, в котором нет акселератора, соответствующего нажимаемой букве.
Поэтому воспроизводится стандартный звук Windows.

Romikgy

Дата 26.5.2006, 14:31 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Код


procedure TMyWin.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (ssCtrl in Shift) or (ssAlt in Shift) then begin
    case Key of
      65 : // 'A' call some proc;
      67 : // 'C' call some proc;
      69 : // 'E' call some proc;
    else
  
    end;
 
 end;
end;

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Rennigth

Дата 26.5.2006, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата(Snowy @ 26.5.2006, 14:27

)

угу
Gershkovich,
бынды лутше не так раздавать

--------------------

(* Honesta mors turpi vita potior *)

Gershkovich

Дата 26.5.2006, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

Понятно.

Правда остались вопросы:

1. Непонятно откуда у меня главное меню ?
Наверно Delphi по умолчанию как-то его встраивает в форму ?
Где его найти и убить ?

2. Таки inherited можно не вставлять ?

Заранее спасибо.

Rennigth,
Что такое бынды и как их лутше раздавать?
Я не силен в жаргоне. Наверно ты имеешь в виду case ?

Romikgy

Дата 26.5.2006, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(Gershkovich @ 26.5.2006, 14:55

)

Непонятно откуда у меня главное меню ?

при чем здесь главная форма?

Цитата(Gershkovich @ 26.5.2006, 14:55

)

Таки inherited можно не вставлять ?

имхо в данном случае он не нужен

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Rennigth

Дата 26.5.2006, 16:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата(Gershkovich @ 26.5.2006, 15:55

)

Что такое бынды и как их лутше раздавать?
Я не силен в жаргоне. Наверно ты имеешь в виду case ?

ну если своими словами:
Bind (с анг. связать), связывание определенной клавиши или комбинации клавишь с какими-то действиями программы.

Добавлено @ 16:14

Цитата(Rennigth @ 26.5.2006, 14:32

)

бынды

бинды... это я описался smile

--------------------

(* Honesta mors turpi vita potior *)

Gershkovich

Дата 26.5.2006, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

Rennigth, когда ты говоришь что бинды можно
по другому сделать, ты имеешь в виду стандартный компонент
"hot-keys" ? который на панели компонентов ?

Rennigth

Дата 26.5.2006, 16:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

ну вариантов довольно много можно придумать...
в принципе можно конечно и как ты сделал, а можно взять TActionList(довольно удобная штука).
У тебя же наверника есть возможноть и мышкой выполнять какие-то действия... так вот можно привязать кнопки к ActionList и назначить HotKey-и. Также можно будет легко управля Enable/Disable(Visible/notVisible) кнопок и т.д Вообщем советую... smile

--------------------

(* Honesta mors turpi vita potior *)

Gershkovich

Дата 26.5.2006, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

Про TActionList я и не подумал...

Так наверно идеологически правильней будет.

Спасибо.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »