| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в cxVerticalGrid из DevExpress задать EditorProperties ? [D7, XP]

Mishenka ©   (2010-07-23 16:10:00) 

Есть компонент cxVerticalGrid из библиотеки DevExpress
Добавляю TcxEditorRow. Нужно в EditorProperties указать ComboBox.
Если делать через инспектор объектов, то всё просто. Однако как указать EditorProperties динамически?

---

Юрий Зотов   (2010-10-05 18:41:00) [1]

А зачем везде писать self ? Он и так подразумевается, по умолчанию.

---

Александер   (2010-10-04 22:02:00) [2]

Спасибо, помогло.

---

stas   (2010-10-04 16:47:00) [3]

Type
TupEditorRow = class(TcxEditorRow)
private
procedure upButtonClick(Sender: TObject; AButtonIndex: Integer);
public
FFieldName:String;
FFCID:Integer;
FNUMBER:Integer;
end;
....
procedure TupEditorRow.upButtonClick(Sender: TObject; AButtonIndex: Integer);
Var Value:String;
begin

if  self.Properties.Value=null then Value:='' else Value:=self.Properties.Value;
self.Properties.Value :=CreateAddText (self.Properties.Caption, Value); //тут открывается диалог для добавления текста.
self.VerticalGrid.HideEdit;
end;

---

Александер   (2010-10-04 14:47:00) [4]

stas, у меня возникли проблемы  с установкой обработчиков событий,
  покажите пожалуйста ваше объявление класса TupEditorRowи обработчик upButtonClick

---

Mishenka   (2010-07-23 20:09:00) [5]

Вопрос снят.

---

Mishenka   (2010-07-23 17:39:00) [6]

Спасибо большое!
Возник вопрос, а как динамически удалить TcxEditorRow из компонента?
Пробую так:

VerticalGridRow := TcxEditorRow(Rows.Items[Index]);
Remove(Rows.Items[Index]);
VerticalGridRow.Free;


Однако не удаляет :(

---

stas   (2010-07-23 16:38:00) [7]

Вот процедура для примера
TupEditorRow - У меня на следник TcxEditorRow, так что заменишь.

Procedure CreateRow(Grid:TcxVerticalGrid; RowType:Integer; List:String;  var Row:TupEditorRow);

{ RowType
1 Text
2 CheckBox
3 RadioButton
4 Combobox
5.Submit
}

Var C:TcxCustomEditProperties;

begin
  Row:=TupEditorRow(Grid.Add(TupEditorRow));

  Case  RowType of
    1:    begin
           C:= TcxButtonEditProperties.Create(Row);
           TcxButtonEditProperties(C).OnButtonClick:=Row.upButtonClick;
          end;
    2:    C:= TcxCheckBoxProperties.Create(Row);
    3:    C:= TcxRadioGroupProperties.Create(Row);
    4: begin
         C:= TcxComboBoxProperties.Create(Row);
         TcxComboBoxProperties(C).Items.Text:=List;
       end;
    5: begin
           C:= TcxButtonEditProperties.Create(Row);
           TcxButtonEditProperties(C).OnButtonClick:=Row.upButtonClick;
           C.ReadOnly:=true;
       end;

  end;

  Row.Properties.EditPropertiesClass:=TcxCustomEditPropertiesClass(C.ClassType);
  Row.Properties.EditProperties:=C;

end;

---

Наверх