Вот только что пытался сделать вот так вот:
procedure TForm1.Button1Click(Sender: TObject);
var imagesss:array[1..10] of TButton;
i:integer;
begin
For i:=1 to 5 do
begin
imagesss[i].create(Self);
with imagesss[i] do begin
parent:=self;
caption:='Кнопка';
tag:=i;
top:=i*30;
self.InsertControl(Imagesss[i]);
end;
end;
end;
После нажатия на кнопку выдаёт ошибку Project **** raised exception class ****.... Пробовал Trace Into - программа стопорится вот на этой строке: imagesss[i].create(Self); в чём может быть дело и как это исправить?
|