Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Пропускать сообщения от клавиатуры и мышки в своем приложении

Delphi , ОС и Железо , Сообщения Windows

Пропускать сообщения от клавиатуры и мышки в своем приложении

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
 Connect a handler to the Application.OnMessage event. 
 You have to do this in code: 
}

   private
     procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);
     { Private declarations }
   public
     { Public declarations }
   end;

    var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 var
   FConnected: Boolean;

 procedure TForm1.AppOnMessage(var Msg: TMsg; var Handled: Boolean);
 begin
   if FConnected then
     case Msg.Message of
       WM_KEYFIRST..WM_KEYLAST,     // Keyboard events 
      WM_MOUSEFIRST..WM_MOUSELAST: // Mouse events 
        Handled := True
     end;
 end;

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Application.OnMessage := AppOnMessage;
 end;

 procedure TForm1.FormDestroy(Sender: TObject);
 begin
   Application.OnMessage := nil;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   FConnected := True;
 end;

Статья Пропускать сообщения от клавиатуры и мышки в своем приложении раздела ОС и Железо Сообщения Windows может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Сообщения Windows ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 01:17:17/0.036555051803589/2