Как принять изменения введенные design-time?

← →
BillyJeans © (2003-03-03 17:10) [0]

Нарисовал компонент, у которого есть property TableName. Как сделать, чтобы в design-time присваивалось введенное значение?

← →
Юрий Зотов © (2003-03-03 18:54) [1]

Должно и так присваиваться. Если не присваивается - значит, в коде есть какие-то особенности. Нужно видеть.

← →
BillyJeans © (2003-03-04 12:11) [2]

с TableName разобрался, теперь новая проблема с Columns для DBGrid, которые я описываю также design-time. При создании компонента происходит
FColumns := TDBGridColumns.Create(FDBGrid, TColumn);
который создает только один столбец :( А вот как, если их несколько?

← →
MBo © (2003-03-04 13:29) [3]

редактор коллекции

← →
BillyJeans © (2003-03-04 13:48) [4]

← →
MBo © (2003-03-04 13:52) [5]

Что происходит, если щелкаешь на DBGrid в Design-Time?
Вызывается редактор Columns (а это коллекция)

← →
BillyJeans © (2003-03-04 15:07) [6]

Редактор у меня вызывается, свойства первого столбца прекрасно меняются, а вот со вторым и т.д. Grid index out of range :((
(может ася у тебя есть, пообщатся?)

так в нем же можно и добавить

Повторюсь, добавлять то он конечно добавляет, а вот начинаю менять свойства нового Column и... Grid index out of range

или вот это почему не работает?

procedure TForm1.Button1Click(Sender: TObject);
var
mDBGrid: TDBGrid;
mColumn: TDBGridColumns;
begin
mDBGrid := TDBGrid.Create(nil);
mColumn := TDBGridColumns.Create(mDBGrid, TColumn);

mColumn.Add;
mColumn.Items[0].FieldName := "KOD";
mColumn.Items[0].Title.Caption := "Код";
mColumn[0].Width := 50;

mColumn.Add;
mColumn.Items[1].FieldName := "IMA";
mColumn.Items[1].Title.Caption := "Название";
mColumn[1].Width := 200;

mDBGrid.Parent := Form1;
end;

Как принять изменения введенные design-time? Найти похожие ветки