Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Система \ Клавиши \ Как узнать о нажатии NON-MENU клавиши в момент когда меню показано

Как узнать о нажатии NON-MENU клавиши в момент когда меню показано

Создайте обработчик сообщения WM_MENUCHAR.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    One1: TMenuItem;
    Two1: TMenuItem;
    THree1: TMenuItem;
  private
    {Private declarations}
    procedure WmMenuChar(var m : TMessage); message WM_MENUCHAR;
  public
  {Public declarations}
end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.WmMenuChar(var m: TMessage);
begin
  Form1.Caption := 'Non standard menu key pressed';
  m.Result := 1;
end;

end.

Название: Как узнать о нажатии NON-MENU клавиши в момент когда меню показано
Дата публикации: 2004-06-17 (2492 Прочтено)

 
 

 

Page generation 0.034 seconds