Wenn du den Rahmen entfernst (bsNone), hast du eben auch keinen Rahmen mehr. Wenn du nur die Titelleiste entfernen möchtest, musst du auch nur diesen Teil (WS_CAPTION) entfernen, den BorderStyle aber auf bsSingle oder bsSizeable lassen:
Delphi-Quellcode:
SetWindowLong(
Handle, GWL_STYLE, GetWindowLong(
Handle, GWL_STYLE)
and not WS_CAPTION);
SetWindowPos(
Handle, 0, 0, 0, 0, 0, SWP_NOMOVE
or SWP_NOSIZE
or SWP_NOZORDER
or SWP_FRAMECHANGED);