09.09.2012, 13:46
|
|
Профессионал
|
|
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
|
|
Цитата:
Сообщение от Pavel_Aleksandrovich
1) есть форма
2) на ней pagecontrol
3) во время создания формы я создаю неободимое число вкладок tabsheet
4) теперь надо на страницу вкладки поместить stringgrid, как эт сделать, есть следующие нюансы размеры stringgrid в каждой вкладке должны быть разными?
Код:
procedure TZadachiWindow.FormCreate(Sender: TObject);
begin
if Form4.ComboBox1.ItemIndex<5
then
begin
for i:=0 to 12 do
begin
if (i=2) or (i=4) or (i=10)
then continue
else
begin
vkladki[i]:=ttabsheet.Create(self);
vkladki[i].Caption:=namevkladok[i];
vkladki[i].PageControl:=pagecontrol1;
sg[i]:=tstringgrid.Create(self);
end;
end;
end;
|
Код:
sg[i].Parent := vkladki[i]; // Поместить StringGrid на вкладку
sg[i].Width := ww[i]; // Задать ширину StringGrid'а
sg[i].Height := hh[i]; // Задать высоту StringGrid'а
|