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.