скрыть скрыть
Delphi FAQ - Часто задаваемые вопросы | Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа || ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |
... type TfrmMain = class(TForm) private procedure OnMove(var Msg: TWMMove); message WM_MOVE; end; ... procedure TfrmMain.OnMove(var Msg: TWMMove); begin inherited; ... end; ...