Wow, super! Vielen lieben Dank!!
Und wenn ich eine andere Farbe verwenden möchte (statt ganz ohne Rand), wäre das dann die richtige Möglichkeit oder geht es irgendwie direkter?
Delphi-Quellcode:
procedure TCategoryPanelGroup.WMNCPaint(
var Message: TWMNCPaint);
var
dc: hDc;
Pen: hPen;
begin
Message.Result := 1;
dc := GetWindowDC(
Handle);
Pen := CreatePen(PS_SOLID, 1, clRed);
SelectObject(
dc, Pen);
Rectangle(
dc, 0, 0, Width, Height);
DeleteObject(Pen);
ReleaseDC(
Handle,
dc);
end;