War es schon, Du musst nur ein wenig den Code anpassen. Ich sagte ja auch nicht, daß dort die Lösung sei, sondern der Ansatz
Delphi-Quellcode:
procedure TPanelEx.CreateParams(var Params: TCreateParams);
begin
inherited;
// ETWAS WENIGER STYLE
Params.Style := Params.Style or WS_THICKFRAME;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
with TPanelEx.Create(Self) do
begin
Left := 50;
Top := 50;
Width := 200;
Height := 300;
Parent := Self;
// ETWAS WENIGER BEVEL
BevelInner := bvNone;
BevelOuter := bvNone;
end;
end;
...
...