var
i: Integer;
img: TImage;
begin
for i:=0 to 24 do
begin
img:=TImage.Create(ScrollBox1);
img.Parent:=ScrollBox1;
img.Picture.LoadFromFile('d:\Картинки\Разное\apple.bmp');
img.AutoSize:=True;
img.Left:=(i mod 4)*img.Width;
img.Top:=(i div 4)*img.Height;
end;
end;
удалить:
Код:
var
i: Integer;
begin
for i:=ScrollBox1.ComponentCount-1 downto 0 do
if ScrollBox1.Components[i] is TImage then
TImage(ScrollBox1.Components[i]).Free;
end;
__________________
Пишу программы за еду.
__________________