Показать сообщение отдельно
  #1  
Старый 09.06.2011, 15:49
Мишка-90 Мишка-90 вне форума
Прохожий
 
Регистрация: 25.03.2011
Сообщения: 24
Репутация: 10
По умолчанию Динамическое создание компонентов

Здравствуйте, столкнулся с такой проблемой.. при создании любого динамического объекта возникает ряд ошибок:
Код:
[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
Ответить с цитированием