Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.16;
Скачать: CL | DM;

Вниз

Что с этим кодом?   Найти похожие ветки 

 
AndreyK_6   (2004-12-30 16:33) [0]

Делаю так
for i:=0 to 3 do j:=j+DBGrid1.Columns.Items[i].Width;
DBGrid1.Width:=j;
Не работает(то есть ширина грида не изменяется)
А так
j:=DBGrid1.Columns.Items[0].Width+DBGrid1.Columns.Items[1].Width+DBGrid1.Columns.Items[2].Width+DBGrid1.Columns.Items[3] .Width;
DBGrid1.Width:=j;
Все нормально
Вопрос:что неправильно?


 
Zeqfreed ©   (2004-12-30 16:46) [1]


j := 0;
for i:=0 to 3 do begin
 j:=j + DBGrid1.Columns.Items[i].Width;
 DBGrid1.Width:=j;
end;


 
ламер ©   (2004-12-30 17:11) [2]

Zeqfreed ©   (04.12.30 16:46) [1]
а DBGrid1.Width:=j; зачем в цикле-то?


 
Zeqfreed ©   (2004-12-30 17:17) [3]

ламер ©   (30.12.04 17:11) [2]
незнаю зачем, для красоты можно

j := 0;
for i:=0 to 2 do j:=j+DBGrid1.Columns.Items[i].Width;
DBGrid1.Width:=j;


Вот так у меня все работает.


 
Fay ©   (2004-12-30 17:18) [4]

Чтобы свои боялись 8)



Страницы: 1 вся ветка

Текущий архив: 2005.01.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.042 c
10-1080216496
Comwad
2004-03-25 15:08
2005.01.16
Два SmartAgent-a в одной подсети.


6-1098249604
ИМХО
2004-10-20 09:20
2005.01.16
TNEF, MS Outlook и Delphi


1-1104167904
markers
2004-12-27 20:18
2005.01.16
Создание формы


1-1104147932
vic_774N
2004-12-27 14:45
2005.01.16
Сменить операционку ?


10-1080654787
ai
2004-03-30 17:53
2005.01.16
Быстродействие Excel