Abartig riesiger Resize-Rahmen bei Vista

[Progman]

Vielleicht hilfr dir der folgende Code:

Delphi-Quellcode:

private
    { Private-Deklarationen }
    procedure NCHIT(var Msg : TWMNCHITTEST); message WM_NCHITTEST;
.
.
.

procedure TForm1.NCHIT(var Msg : TWMNCHITTEST);
var p   : Tpoint;
const a = 9;
var r,u : integer;
begin
     p.x        := msg.XPos;
     p.y        := msg.YPos;
     p          := screentoclient(p);
     msg.Result := HTCLIENT;
     {-}
     r          := self.width  - a;
     u          := self.height - a;
     {-}
     if p.x > r then msg.Result := HTRIGHT;
     if p.y > u then msg.Result := HTBOTTOM;
     if PtInRect(Rect(r,u,self.width,self.height),p) then msg.Result := HTBOTTOMRIGHT;
end;

der stammt glaub ich aus dem o.g. Thread.