![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте, столкнулся с такой проблемой.. при создании любого динамического объекта возникает ряд ошибок:
Код:
[Error] Unit1.pas(28): Undeclared identifier: 'TEdit' Код:
procedure TForm1.FormCreate(Sender: TObject); var i,EDcount:Cardinal; ED:TEdit; begin EDcount:=10; // количество создаваемых едитов for i:=1 to EDcount do begin ED:=TEdit.Create(Self); ED.Parent:=Form1; ED.Left:=10; ED.Top:=(ED.Height*i)+2; ED.Name:='DynCrtEdit'+IntToStr(i); end; end; мне нужно создать динамически label и StaticText.. но из-за этих ошибок ничего не получается, где я ошибаюсь? label создавал так: Код:
MyLabel := TLabel.create(form1); MyLabel.parent := form1 Последний раз редактировалось Мишка-90, 09.06.2011 в 15:59. |