Вот примерно..........
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;
[color=gray][i][size=-2]Posted with [url=http://forumpilot.com]ForumPilot[/url] v1.1[/size][/i][/color]