Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Фев

Динамическое создание TImage

Posted by micher under Delphi

Как динамически создать TImage?

Stilet

Зависимость от uses contnrs;

var Img: TObjectList;

...

procedure TForm2.BitBtn1Click(Sender: TObject);
 Memo:array of TMemo;

 i: Integer; im:TImage;

begin

  if Imgnil then Img.Clear else img:=TObjectList.Create;

  for i := 0 to Form1.ListBox1.SelCount-1 do

    begin

      if (LowerCase(ExtractFileExt(mas))= '.bmp') or

        (LowerCase(ExtractFileExt(mas))= '.jpg')

        then begin

        Im := TImage.Create(Self);

        with im do begin Img.add(im);

          Parent := Self;
          Width := 40;

          Height := 40;

          Left := i * 50+20;

          Top := 20;

          Proportional:=true;

          Picture.LoadFromFile(mas);

        end;

      end

    else

      begin

        memo :=TMemo.Create(Form2);

        memo.Parent := Form2;

        memo.Width := 40;

        memo.Height := 40;

        memo.Left := i * 50+20;

        memo.Top := 20;

        memo.Lines.LoadFromFile(mas);

      end;

    end;

end;