ПРОЗРАЧНЫЙ 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

Реклама
Новое
Реклама