![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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. |