ClientArea von TGroupBox modifizieren?

[Uwe Raabe]

Du kannst es mit folgender Interposer-Class erreichen:

Delphi-Quellcode:

type
  TGroupBox = class(Vcl.StdCtrls.TGroupBox)
  protected
    procedure AdjustClientRect(var Rect: TRect); override;
  end;

procedure TGroupBox.AdjustClientRect(var Rect: TRect);
begin
  inherited AdjustClientRect(Rect);
  Canvas.Font := Font;
  Dec(Rect.Top, Canvas.TextHeight('0'));
end;