VPF::Обращение к динамически созданным объектам Delphi

Arinna

Дата 15.8.2011, 21:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 2.5.2011

Репутация: нет
Всего: нет

Вы меня на мысль навели... Спасибо!!! я исправила чуть и заработало))))
Вот исправленный код. Вдруг кому поможет...

Код


For i:=0 to Form2.Pagecontrol1.PageCount-1 do begin
  S:=TStringGrid.Create(Form2);
   with S do
  begin
  Parent:=Form2.PageControl1.Pages[i];
  Visible := True;
  name := 'StringGrid'+inttostr(i); 
  Options:=Options+[goEditing];
  Left:=3;
  Top:=50;
  FixedCols:=0;
  end;
end;
For i:=0 to Form2.Pagecontrol1.PageCount-1 do begin
  S:=TStringGrid.Create(Form2);
   with S do
  begin
  Parent:=Form2.PageControl1.Pages[i];
  Visible := True;
  name := 'StringGrid'+inttostr(Pagecontrol1.PageCount*2+1+i); 
  Options:=Options+[goEditing];
  Left:=525;
  Top:=50;
    FixedCols:=0;
  end;
end;

И обращаюсь вот так

Код


TStringGrid(Form2.FindComponent('StringGrid1')).Cells[0,1]:='1'

northener

Дата 15.8.2011, 23:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Цитата(Arinna @ 15.8.2011, 21:27

)

Вы меня на мысль навели... Спасибо!!! я исправила чуть и заработало))))

Счастлив что хоть чем-то помог.
Не могу только понять зачем нужно

Код


Pagecontrol1.PageCount*2+1

?
Ну да это и не мое дело. smile

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

CodeMonkey

Дата 16.8.2011, 01:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Немного поздно, но рекомендую почитать на досуге: http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=342

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Arinna

Дата 16.8.2011, 09:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 2.5.2011

Репутация: нет
Всего: нет

northener, Вы правы. Вместо

Код

    
Pagecontrol1.PageCount*2+1

Нужно оставить просто

Код


Form2.Pagecontrol1.PageCount

Это сообщение отредактировал(а) Arinna - 16.8.2011, 11:53

Arinna

Дата 16.8.2011, 10:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 2.5.2011

Репутация: нет
Всего: нет

CodeMonkey, спасибо за ссылку.) Мне это еще пригодится)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »