TCategoryPanelGroup modifizieren

[TiGü]

Zitat von Keks:

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;

Das ist schon ok so.
Alternativ kannst du auch ein TCanvas erzeugen und dessen Handle das DC zuweisen.
Aber das ist Geschmackssache.