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