Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > обработка кодов ALT+клавиша

Автор: Alexzz 2.12.2008, 01:42

Дано:
На форме лежит Edit1.
Майнменю не должно быть.

Задача:
По нажатию клавиш ALT+M выполнить Edit1.Text:='Мама';

Вопрос: Как создать событие по нажатию клавиш ALT+буква?

Экспериментировал с OnKeyPress - он вообще не вызывается при нажатии комбинаций с ALT.
Пробовал с OnKeyDown - он вызывается один раз при нажатии ALT, передавая код 18, затем вызывается второй раз при нажатии второй клавиши. Теоретически могу наворотить по этим событиям кучу всего, создать флаг, который бы переходил в true при нажатии ALT и в false при отпускании по событию OnKeyUp, и обрабатывать остальные коды учитывая состояние флага, но чувствую, что должен быть какой-то более простой способ.

Автор: ne_tru_e 2.12.2008, 01:56

Читаем справку дельфи:

type
TKeyEvent = procedure (Sender: TObject; var Key: Word; Shift: TShiftState) of object;

property OnKeyDown: TKeyEvent;

The Shift parameter indicates whether the Shift, Alt, or Ctrl keys are combined with the keystroke.

То есть параметр Shift показывает состояние клавиш Shift, Alt, Ctrl.
Тип ShiftState - множество.

type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);

Таким образом при нажатии проверяем вместе со значением Key также и значение Shift:

Код


if (ssAlt in Shift)and(Key=ord('m')) then Edit1.Text:='Мама';

Автор: Alexzz 3.12.2008, 20:20

Спасибо конечно, но это не совсем то, о чём я спрашивал. Вот например есть такой компонент как Actionlist, но у него в списке горячих клавиш к сожалению нет комбинаций ALT+буква.

Пока временно использовал onkeydown и onkeyup проверяя переменную shift, но есть одно маленькое неудобство - при каждом нажатии в динамиках звучит "дынь", как буд-то ткнул во что-то неактивное. Малость напрягает. Обнуление key не помогает.

Автор: Christoph 3.12.2008, 22:45

Код


procedure TForm1.WMHotKey(var Mess: TWMHotKey);
begin
 Edit1.Text:='Mama';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 1 ,MOD_ALT,Ord('M'));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, 1);
end;

end.

P.S хочу плюсик smile