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

[Neutral General]

Hi,

Hab ne Lösung gefunden.. Falls jemand das gleiche Problem hat:

Man muss nachdem man den Rahmen ändert folgendes aufrufen:

Delphi-Quellcode:

//                                                                         // !wichtig! // 
SetWindowPos(hwnd,0, 0, 0, 0, 0,SWP_NOZORDER or SWP_NOSIZE or SWP_NOMOVE or SWP_DRAWFRAME);

Gruß
Neutral General