Как убрать полоски скроллинга в Дельфи в главной MDI-форме?

вставь в обработчик WndProc


procedure {}.WndProc(var Message: TMessage);

procedure Default;
begin
with Message do
Result := CallWindowProc(FOldClientProc, ClientHandle, Msg, wParam, lParam);
end;

begin
case Message.Msg of
$3F:
begin
if MDIChildCount = 0 then Default;
end;
else
Default;
end;
end;

(c)Naugrim
Просветите пожалуйста, что есть магическое $3F (откуда он у Borland). Чего-то WM_???? с таким номером не документирован (смотрел в PSDK февраль 2001).
Я отыскал это в исходниках', у них тоже $3F, скорее всего это недокументировано, но я не уверен.
Главное работает.

TopList Rambler's Top100