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