Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.02.2012, 15:31   #1
SPD
Пользователь
 
Регистрация: 30.11.2009
Сообщений: 41
По умолчанию динамическое создание Stringgrid

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


или мож кто знает какреализовать вот такую штуку

Код:
for i:=1 to 15 do 
     Begin
     if Stringgrid[i].cells[0,0]='test' then 
           Begin 
//условие
           end;
      end;
прсото прходить 15 Stringgrid вручную ет както очень проблематично.....а в цыкле их задать пока не получилось вот мне посоветовали создавать Stringgrid динамически сказали что там ето реально сделать....

Заранее благодарен....
SPD вне форума Ответить с цитированием
Старый 08.02.2012, 15:45   #2
maxsept
Пользователь
 
Регистрация: 14.01.2010
Сообщений: 14
По умолчанию

Код:
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[i]:=TTabSheet.Create(nil);
    ts[i].PageControl:=pgc1;
    sg[i]:=TStringGrid.create(nil);
    sg[i].Parent:=ts[i];
  end;
pgc1 - ето PageControl

Цикл по StringGrid если созданы не динамически.
Код:
for i:=0 to ComponentCount-1 do
  if Components[i].className='TStringGrid' then
    if (Components[i] as TStringGrid).cells[0,0]='1' then Begin 
      //условие
    end;

Последний раз редактировалось maxsept; 08.02.2012 в 15:50.
maxsept вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Динамическое создание таблицы Vervolf БД в Delphi 3 01.10.2011 16:35
Динамическое создание romanzi Общие вопросы Delphi 1 24.08.2011 12:20
Динамическое создание событий Fandaret Общие вопросы Delphi 4 14.05.2009 04:20
Динамическое создание формы. Son Общие вопросы Delphi 1 04.02.2009 15:33
Динамическое создание объекта Fruit Общие вопросы Delphi 2 16.01.2008 21:18