TdxCustomLayoutGroup.CreateItemForControl(TControl) Method
Creates a new container layout item for an existing control.
Declaration
function CreateItemForControl(AControl: TControl): TdxLayoutItem;
Parameters
| Name | Type | Description |
|---|---|---|
| AControl | TControl | The target control. |
Returns
| Type | Description |
|---|---|
| TdxLayoutItem | The created layout item. |
Remarks
Call the CreateItemForControl function to create a new container layout item in the group and embed the specified control (TControl descendant) into the created layout item.
To create any supported layout item within the group, call the CreateItem function instead.
Code Example: Create Layout Groups and Items
The code example in this section creates a parent TdxLayoutControl and nested layout group populated with four editors separated with auxiliary splitter and empty space layout items. Both the parent form and its nested layout control automatically adjust their dimensions according to group content.
Tip
This code example demonstrates a general layout group management technique useful when you need to maintain multiple groups within the same Layout control.
If your form layout design includes only one group, you can create layout items directly within the root group (TdxCustomLayoutControl.Items).
uses
dxLayoutControl, // Declares the TdxLayoutControl class
dxLayoutContainer, // Declares TdxLayoutGroup and TdxLayoutItem classes
cxCalendar, // Declares the TcxDateEdit class
cxCurrencyEdit, // Declares the TcxCurrencyEdit class
cxSpinEdit; // Declares the TcxSpinEdit class
System.DateUtils; // Declares the Today function
// ...
procedure TMyForm.FormCreate(Sender: TObject);
var
ALayoutGroup: TdxLayoutGroup;
ALayoutItem: TdxLayoutItem;
ACalendar: TcxDateEdit;
ACurrencyEdit: TcxCurrencyEdit;
ASpinEdit: TcxSpinEdit;
AIconPath: string;
ALayoutControl: TdxLayoutControl;
begin
AIconPath := 'C:\Program Files (x86)\DevExpress\VCL\ExpressLibrary\Sources\' +
'Icon Library\SVG Images\Icon Builder\';
Self.AutoSize := True; // Enables automatic form size adjustment
// Create a layout control for the current form
ALayoutControl := TdxLayoutControl.Create(Self);
ALayoutControl.Parent := Self;
ALayoutControl.BeginUpdate; // Initiates the following batch change
try
ALayoutControl.AutoSize := True; // Enables automatic layout control size adjustment
// Create a parent layout group for all UI elements
ALayoutGroup := ALayoutControl.Items.CreateGroup(TdxLayoutGroup) as TdxLayoutGroup;
ALayoutGroup.CaptionOptions.Text := 'Order';
// Create and configure a date editor and its container layout item
ACalendar := TcxDateEdit.Create(Self);
ACalendar.Properties.Kind := ckDate;
ACalendar.EditValue := Today;
ALayoutItem := ALayoutGroup.CreateItemForControl(ACalendar);
ALayoutItem.CaptionOptions.Text := 'Purchase Date: ';
ALayoutItem.CaptionOptions.Glyph.LoadFromFile(AIconPath + 'Actions_Calendar.svg');
ALayoutItem.CaptionOptions.Glyph.SourceWidth := 16;
ALayoutItem.CaptionOptions.Glyph.SourceHeight := 16;
// Create and configure a currency editor and its container layout item
ACurrencyEdit := TcxCurrencyEdit.Create(Self);
ACurrencyEdit.Value := 0;
ALayoutItem := ALayoutGroup.CreateItemForControl(ACurrencyEdit);
ALayoutItem.CaptionOptions.Text := 'Price: ';
ALayoutItem.CaptionOptions.Glyph.LoadFromFile(AIconPath + 'Business_Money.svg');
ALayoutItem.CaptionOptions.Glyph.SourceWidth := 16;
ALayoutItem.CaptionOptions.Glyph.SourceHeight := 16;
// Create and configure a spin editor and its container layout item
ASpinEdit := TcxSpinEdit.Create(Self);
ALayoutItem := ALayoutGroup.CreateItemForControl(ASpinEdit);
ALayoutItem.CaptionOptions.Text := 'Quantity: ';
ALayoutItem.CaptionOptions.Glyph.LoadFromFile(AIconPath + 'Shopping_ShoppingCart.svg');
ALayoutItem.CaptionOptions.Glyph.SourceWidth := 16;
ALayoutItem.CaptionOptions.Glyph.SourceHeight := 16;
ALayoutGroup.CreateItem(TdxLayoutSeparatorItem); // Creates a separator layout item
// Create an empty space item and specify its height
(ALayoutGroup.CreateItem(TdxLayoutEmptySpaceItem) as TdxLayoutEmptySpaceItem).Height := 20;
// Create and configure a currency editor and its container layout item below the empty space
ACurrencyEdit := TcxCurrencyEdit.Create(Self);
ACurrencyEdit.Properties.ReadOnly := True;
ACurrencyEdit.Value := 0;
ALayoutItem := ALayoutGroup.CreateItemForControl(ACurrencyEdit);
ALayoutItem.CaptionOptions.Text := 'Payment Amount: ';
finally
ALayoutControl.EndUpdate; // Calls EndUpdate regardless of the batch operation's success
end;
end;
