|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.01.2011, 17:54 | #1 |
Новичок
Джуниор
Регистрация: 10.01.2011
Сообщений: 2
|
Как отображать все сообщения Windows в Memo? DELPHI
На форме только memo1.
Вот код: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); private procedure apponmessage(var msg:tmsg;var handled:boolean); { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure tform1.apponmessage(var msg:tmsg); begin form1.Memo1.Lines.Add(inttostr(msg. message)); end; procedure TForm1.FormCreate(Sender: TObject); begin application.OnMessage:=apponmessage ; end; end. Сообщения Windows отображаются в числовом формате. Возможно ли перевести их в буквенный ( wm_close,wm_paint..) ? |
12.01.2011, 13:52 | #2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,527
|
1. создаем файл wmlist.txt с такими данными
123 =WM_DONE 234 =WM_PAINT .. и так далее (с правильными кодами!) 2. грузим файл в TstringList Код:
Код:
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 12.01.2011 в 13:56. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перехватить все сообщения (глобальный хук) | TwiX | Софт | 0 | 11.11.2010 22:45 |
Как заставить dblookupcomboboxeh отображать содержимое memo??? | AK BULLETS | Общие вопросы Delphi | 9 | 08.04.2010 16:25 |
Delphi. Сообщения Windows | Alex1991 | Помощь студентам | 2 | 23.02.2010 15:45 |
рисование на канве и сообщения windows | olchick | Мультимедиа в Delphi | 8 | 23.06.2009 14:52 |
Как в memo найти все e-mail'ы | Черничный | Общие вопросы Delphi | 16 | 16.10.2008 09:13 |