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;

[mensch72]

"Interposer-Class"

... das is cool und kannte ich bisher so noch nicht, da mache ich gleich ein paar Konzeptversuche mit Sachen die mich bei TMS noch nerven und ich bisher immer direkt in deren Source gepatcht habe, was aber viel Aufwand ist, denn ich muss es bei jeder neuen Version bisher immer manuell nachführen. Das könnte mir die Arbeit bei TMS Updates zukünftig erleichtern

[Zacherl]

Zitat von Uwe Raabe:

Du kannst es mit folgender Interposer-Class erreichen

AdjustClientRect , genau das, was ich gesucht habe. Vielen Dank