Создание динамических объектов на форме

← →
Vera (2006-04-03 03:50) [0]

Добрый день! Мастера, подскажите плж-ста. Создаю динамически объекты на форме
fZapChBl:=TfZapChBl.Create(Self);
for i:=0 to High(MasGb) do
begin
MasD3b[i]:=TCurrencyEdit.Create(Self);
MasD3b[i].Parent:=Self;
MasD3b[i].Top:=(i-1)*MasD3b[i].Height;
MasD3b[i].Left:=(i-1)*MasD3b[i].Width;
MasD4b[i]:=TCurrencyEdit.Create(Self);
MasD4b[i].Parent:=Self;
MasD4b[i].Top:=(i-1)*MasD4b[i].Height;
MasD4b[i].Left:=30+(i-1)*MasD4b[i].Width;
end;
fZapChBl.ShowModal;
На форме в св-ве OnActivate
for i:=0 to High(MasGb) do
begin
MasD3b[i].Visible:=True;
MasD4b[i].Visible:=True;
end;
Форма загружается, а элементов нет.

← →
Джо © (2006-04-03 03:54) [1]

Что-то у меня башка сегодня не соображает... А где ты их создаешь, т.е., в каком методе формы?

← →
Vera (2006-04-03 04:22) [2]

Дык мне казалось, что создаю на форме.

← →
Джо © (2006-04-03 04:23) [3]

> [2] Vera (03.04.06 04:22)
> Дык мне казалось, что создаю на форме.

Что значит "казалось"? Я спашивал, откуда вызывается код

> fZapChBl:=TfZapChBl.Create(Self);
> for i:=0 to High(MasGb) do
> begin
> MasD3b[i]:=TCurrencyEdit.Create(Self);
> MasD3b[i].Parent:=Self;
> MasD3b[i].Top:=(i-1)*MasD3b[i].Height;
> MasD3b[i].Left:=(i-1)*MasD3b[i].Width;
> MasD4b[i]:=TCurrencyEdit.Create(Self);
> MasD4b[i].Parent:=Self;
> MasD4b[i].Top:=(i-1)*MasD4b[i].Height;
> MasD4b[i].Left:=30+(i-1)*MasD4b[i].Width;
> end;
> fZapChBl.ShowModal;

← →
Vera (2006-04-03 04:27) [4]

При обработке OnClik Button должна создать на новой форме CurrencyEdit.

← →
Джо © (2006-04-03 04:37) [5]

Ладно, если не желаешь ответить на вопрос, твое дело. У меня есть чем заняться, удачи.

> [5] Джо © (03.04.06 04:37)
> Ладно, если не желаешь ответить на вопрос, твое дело. У
> меня есть чем заняться, удачи.

Это я писал, не видя твоего предыдущего поста [4].
--
Parent должен быть не Self, а форма, которую ты показываешь по ShowModal.

← →
Vera (2006-04-03 05:17) [7]

Спасибо!!!

Создание динамических объектов на форме Найти похожие ветки