[PashaXP]

Создаю динамически:
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'
????

[Rosenkrantz]

При создании компонента в run-time имя ему автоматически не присваивается, нужно сделать это самостоятельно:

Код:

Edit.Name := 'Edit' + IntToStr(i);

[PashaXP]

СПАСИБО!!!!