Пишу уже не на первом форуме!
Есть VerticalGrid в нем ImageComboBox.
Как мне достать по ButtonClick значение ItemIndex, а также Tag, Description данного ImageComboBox????
Помогите, а то уже крышу рвет!!!
DevExpress
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
Вот примерно..........
procedure TForm1.cxVerticalGrid1EditorRow1EditPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
FRow: TcxEditorRow;
FItem: TcxImageComboBoxItem;
begin
if TcxCustomEdit(Sender).Parent.InheritsFrom(TcxVerticalGrid) then
with TcxVerticalGrid(TcxCustomEdit(Sender).Parent) do
begin
FRow:= TcxEditorRow(FocusedRow);
with TcxImageComboBoxProperties(FRow.Properties.EditProperties) do
begin
FItem:= FindItemByValue(TcxCustomEdit(Sender).EditValue);
if Assigned(FItem) then
begin
{
FItem.ImageIndex;
FItem.Tag;
FItem.Description;
}
end;
end;
end;
end;
[size=-2]Posted with ForumPilot v1.1[/size]
procedure TForm1.cxVerticalGrid1EditorRow1EditPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
FRow: TcxEditorRow;
FItem: TcxImageComboBoxItem;
begin
if TcxCustomEdit(Sender).Parent.InheritsFrom(TcxVerticalGrid) then
with TcxVerticalGrid(TcxCustomEdit(Sender).Parent) do
begin
FRow:= TcxEditorRow(FocusedRow);
with TcxImageComboBoxProperties(FRow.Properties.EditProperties) do
begin
FItem:= FindItemByValue(TcxCustomEdit(Sender).EditValue);
if Assigned(FItem) then
begin
{
FItem.ImageIndex;
FItem.Tag;
FItem.Description;
}
end;
end;
end;
end;
[size=-2]Posted with ForumPilot v1.1[/size]