Weißer Rand beim entfernen von WS_SIZEBOX

[Neutral General]

Hi,

Ich ändere mit folgendem Code den Style eines Fensters.

Delphi-Quellcode:

procedure TNVCLForm.SetSizeable(const Value: Boolean);
var old: Cardinal;
begin
  old := GetWindowLong(FHandle,GWL_STYLE);
  if Value then
    SetWindowLong(FHandle,GWL_STYLE,old or WS_SIZEBOX)
  else
    SetWindowLong(FHandle,GWL_STYLE,old and not WS_SIZEBOX);
  FSizeable := Value;
end;

Wenn ich jetzt von mit-Sizebox auf ohne-Sizebox wechsele bekomme ich einen unschönen weißen Rand (Anhang). Was mach ich dagegen? (Hab den weißen Rand rot gefärbt damit man ihn besser erkennt)

Gruß
Neutral General