Property Border: TGroupBoxBorder read FBorder write SetBorder default brFull Property ColorBorder: TColor index 0 read FBorderColor write SetColors default $008396A0 Property BorderStyle:Tpenstyle read FBorderStyle write SetBorderStyle default psSolid Property BorderWidth: integer read FBorderWidth write SetBorderWidth default 1 Property Transparent: Boolean read FTransparent write SetTransparent default false Procedure SetBiDiMode(Value: TBiDiMode) override Ĭonstructor Create (AOwner: TComponent) override Procedure SetBorderStyle(value:TPenStyle) Procedure SetTransparent (const Value: Boolean) Procedure WMMove (var Message: TWMMove) message WM_MOVE Procedure WMSize (var Message: TWMSize) message WM_SIZE Procedure CMDialogChar (var Message: TCMDialogChar) message CM_DIALOGCHAR Procedure CMParentColorChanged (var Message: TWMNoParams) message CM_PARENTCOLORCHANGED Procedure CMSysColorChange (var Message: TMessage) message CM_SYSCOLORCHANGE Procedure SetBorder(const Value: TGroupBoxBorder) Procedure SetColors(const Index: Integer const Value: TColor) Procedure CMTextChanged (var Message: TWmNoParams) message CM_TEXTCHANGED Procedure CMEnabledChanged (var Message: TMessage) message CM_ENABLEDCHANGED Procedure SetUseAdvColors (Value: Boolean) Procedure SetAdvColors (Index: Integer Value: TAdvColors) Windows, Messages, SysUtils, Forms, Classes, Graphics, Controls, ExtCtrls, FlatUtilitys This is yet another modified version of TFlatGroupBox with added features unit TFlatGroupBoxUnit PsInsideFrame, psUserStyle, psAlternate). How about changing the style of the border ( psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear,.It need to have a border color property (required by your question).It is a group box descendant.(required by your question).This is the link to the latest modified version by me (it is compatible with delphi 10 seattle).įor option 2 lets put some criteria for our component Now for option 1 I strongly recommend FlatStyle open source set of components it contains TFlatGroupBox which has what you are asking. Use a third party component (free if possible).For your requirements you could do two things:

Lazarus groupbox change color