Delphi. Трюки и эффекты

Здесь API-функция GetMessage возвращает значения больше 0, пока в очереди не обнаружится сообщение WMQUIT. В случае возникновения какой-либо ошибки функция GetMessage возвращает значение-1. Функция TranslateMessage преобразует сообщения типа WM_KEYDOWN, WM_KEYUP, WM_SYSKEYDOWN и WM_ SYSKEYUP В сообщения СИМВОЛЬНОГО ввода (WM_CHAR, WM_SYSCHAR, WM_DEADCHAR, WM_SYSDEADCHAR). Функция DispatchMessage в общем случае (за исключением сообщения WMTIMER) вызывает функцию обработки сообщений нужного окна.

Внешний вид самого окна, созданного в этом примере, приводится на рис. 2.2.

Рис. 2.2. Окно, созданное вручную

Кстати, пока размер приложения всего 16 Кбайт.