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

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

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


Vera ©   (2006-04-03 03:50:00) 

Добрый день! Мастера, подскажите плж-ста. Создаю динамически объекты на форме
   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;
Форма загружается, а элементов нет.


Vera   (2006-04-03 05:17:00) [1]

Спасибо!!!


Джо   (2006-04-03 04:42:00) [2]

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

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


Джо   (2006-04-03 04:37:00) [3]

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


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

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


Джо   (2006-04-03 04:23:00) [5]

> [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:22:00) [6]

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


Джо   (2006-04-03 03:54:00) [7]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо