Delphi FAQ - Часто задаваемые вопросы | Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа || ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |
Оформил: DeeCo
{....} private procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST; {....} procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest); begin inherited; with Message do begin if Result = HTCAPTION then Result := HTNOWHERE; end; end;