![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Создаю динамически:
procedure TForm1.Button1Click(Sender: TObject); var edit: TEdit; begin edit:= TEdit.Create(Self); edit.Top:= PG[j].Info_Label[i].Top; edit.Left:= PG[j].Info_Label[i].Top; Parent:= PageControl1.Pages[j-1]; end; end; Затем пытаюсь закинуть текст с помощью TEdit(FindComponent('Edit' + IntToStr(i))).Text:='dsdsdvcdv' Но Edit'ы остабтся пустыми???? Если на форму накидать вручную Edit'ы, то это работает - TEdit(FindComponent('Edit' + IntToStr(i))).Text:='dsdsdvcdv' ???? |
#2
|
|||
|
|||
![]() При создании компонента в run-time имя ему автоматически не присваивается, нужно сделать это самостоятельно:
Код:
Edit.Name := 'Edit' + IntToStr(i); |
#3
|
|||
|
|||
![]() СПАСИБО!!!!
|