Größenänderung eines Formulars nur am unteren Rand zulassen

[samso]

Da habe ich vor kurzem etwas sehr schönes gesehen (Dank an turboPASCAL), dass ich dann auch dieser Stelle verwenden würde, weil es dem Nutzer durch die Veränderung des Mauszeigers direkt signalisiert, dass er nur den unteren Rand verschieben darf. (Borderstyle ist bsSizeable)

Delphi-Quellcode:

    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
...
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;
  if (Message.Result in [HTLEFT, HTRIGHT, HTTOP, HTTOPLEFT,
                         HTTOPRIGHT, HTBOTTOMLEFT, HTBOTTOMRIGHT]) then
    Message.Result := htClient;
end;

Edit 1:
Laut Microsoft: Minimum supported client: Windows XP
Edit 2:
Ich habe es mit W2K (SP4) getestet, funktioniert wunderbar.