ПРОЗРАЧНЫЙ GROUPBOX DELPHI
GroupBox - это компонент визуального интерфейса, который используется для группировки других элементов управления. Однако есть случаи, когда GroupBox мешает восприятию пользователю интерфейса. В таких случаях удобно использовать прозрачный GroupBox.
Прозрачный GroupBox является наследником стандартного компонента TGroupBox и позволяет создавать группы элементов управления, но с прозрачным фоном.
type TTransparentGroupBox = class(TGroupBox) private procedure CreateParams(var Params: TCreateParams); override; public constructor Create(AOwner: TComponent); override; end;constructor TTransparentGroupBox.Create(AOwner: TComponent);begin inherited; ControlStyle := ControlStyle + [csOpaque]; // делаем GroupBox непрозрачнымend;procedure TTransparentGroupBox.CreateParams(var Params: TCreateParams);begin inherited CreateParams(Params); Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT; // делаем фон компонента прозрачнымend;
Чтобы использовать TTransparentGroupBox вместо стандартного TGroupBox, достаточно создать экземпляр TTransparentGroupBox вместо TGroupBox:
TransparentGroupBox1 := TTransparentGroupBox.Create(Self);TransparentGroupBox1.Parent := Self; // помещаем компонент на формуTransparentGroupBox1.Caption := 'Прозрачный GroupBox';
Livebinding a Checkbox - Delphi #136
Delphi 7 Компоненты Listbox и Combobox
Delphi - Combobox
Delphi - Use a Radiogroup
Delphi cxgrid checkbox and multiselect
New TCustomComboBox Properties - Delphi #193