keine Titelzeile, aber Umrandungsfarbe

[Sunlight]

Hallo zusammen,

ich möchte ein Form generieren, welches keine Titelzeile besitzt, aber bei der ich die Farbe der Umrandung selber setzten kann.

Ich habe schon Code für das Ausblenden der Titelzeile gefunden:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
Var
 Save : LongInt;
Begin
 If BorderStyle=bsNone then Exit;
 Save:=GetWindowLong(Handle,gwl_Style);
 If (Save and ws_Caption)=ws_Caption then Begin
   Case BorderStyle of
     bsSingle,
     bsSizeable : SetWindowLong(Handle,gwl_Style,Save and
       (Not(ws_Caption)) or ws_border);
     bsDialog : SetWindowLong(Handle,gwl_Style,Save and
       (Not(ws_Caption)) or ds_modalframe or ws_dlgframe);
   End;
   Height:=Height-getSystemMetrics(sm_cyCaption);
   Refresh;
 End;
end;

aber gibt es auch die Möglichkeit die Umrandungsfarbe für das ganze Form zu setzen ? oder muss man selber zeichnen

Gruß Hans