07.11.2005, 08:52
|
|
Познающий
Регистрация: 08.04.2005
Сообщений: 69
Провел на форуме:
207537
Репутация:
59
|
|
по-моему у setlength второй параметр число типа byte
в хэлпе -
procedure SetLength(var S; NewLength: Integer);
так шо там чики пуки .... а так не вижу в чём проблема ... вроде всё просто ....
SetLength(a,100);
for i:=1 to 100 do
begin
a[i]:=TImage.Create(Form1);
with a[i] do
begin
Parent:=Form1;
Name:='my_image'+inttostr(i);
Left:=i+20;
Top:=i+50;
Width:=100;
Height:=20;
Canvas.Pixels[0,0]:=clblack;
end;
end;
у мя работает .. только патом надо их как создал - так и уничтожить ... а то ругацца будет =))
|
|
|