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

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

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

1st
Мар

Динамическое создание StringGird’ов и работа с ними

Posted by Chas under Delphi

Передо мною постала такая задача:
есть создано 15 TabSeet и мне нужно поместить на них 15 Stringgrid и дальше с ними работать киньте пож пример как правильно создать на TabSeet Stringgrid и дальше к нему обращатся…

maxsept



var

  ts:array[0..15] of TTabSheet;

  sg:array[0..15] of TStringGrid;
var

  i:Integer;

begin

  for i:=0 to 15 do begin

    ts:=TTabSheet.Create(nil);

    ts.PageControl:=pgc1;

    sg:=TStringGrid.create(nil);

    sg.Parent:=ts;

  end;

pgc1 — ето PageControl

Цикл по StringGrid если созданы не динамически.

for i:=0 to ComponentCount-1 do

  if Components.className='TStringGrid' then

    if (Components as TStringGrid).cells[0,0]='1' then Begin

      //условие

    end;

тема на форуме