| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
OnKeyDown в наследнике TPaintBox
Soft(Unpowered Kiborg) © (2002-08-10 12:34:00)Здравствуйте.
Возникла проблемма. Нужно в наследнике от TpaintBox ловить сообщения от клавиш(например Del). Делаю перехват собщения
procedure WMKeyDown(var Message: TWMKeyDown); message WM_KEYDOWN;
procedure TNTDScreen.WMKeyDown(var Message: TWMKeyDown);
begin
ShowMessage("Keydown");
canvas.TextOut(0,0,"Keydown");
end;
И ничего не происходит. Где ошибка совсем не понимаю.
Soft(Unpowered Kiborg) (2002-08-10 15:59:00) [1]Большое спасибо. Большого и безглючного вам кода:)
Юрий Зотов (2002-08-10 13:54:00) [2]TPaintBox - наследник TGraphicControl. То есть, это не окно. О каких же сообщениях Windows может идти речь? Только о тех, которые пересылает компоненту его Parent - а в данном случае он, видимо, этого не делает.
Зато можно отнаследоваться от TCustomControl и добавить код, содержащийся в TPaintBox (всего-навсего два небольших кусочка). В итоге получим тот же TPaintBox, но оконный - он будет сам получать все сообщения.
| |
