Ширина полей DBGrid

[XATAB]

создается запрос

Form2.ADOQuery1.SQL.Text := 'SELECT fio as ФИО, vozrast as Возраст, obrazovanie as Образование, telefon as Телефон, naviki as Навыки FROM soiskateli WHERE profa = '+quotedstr(Edit1.Text);

в гриде появляются поля: ФИО, Возраст, Образование, Телефон, Навыки.
при отображении их ширина берется как в таблице базы данных, нужно изменить ее. каким образом это можно сделать?

[фЁдОр]

эх, Ватцон, Ватцон...
почему ж, такие сложности Вы любите? Ну щелкните вы два раза по ADOQuery1, потом щелкните ПКМ по этому окошку, выберите "добавить все поля", выделяете поле и в инспекторе объектовставите столько, сколько вам хочется

[XATAB]

щелкнуть 2 раза по ADOQuery1 не могу, т.к. конект к базе идет после запуска проги. и если я щелкаю 2 раза то вылетает сообщение с ошибкой(

[фЁдОр]

т.е. вы ставите актив в тру после запуска программы или он у вас вообще не ставится?

[XATAB]

нет, я сначала запускаю программу, потом указываю путь к базе а уж потом происходит конект

[фЁдОр]

странно вы делаете, а у вас, что бд убегает куда-то постоянно, что вы потом путь к ней прописываете. право ваше, ладно не буду мучить. помнится я делал так - на этапе разработке все же поставьте актив в тру, загрузите поля, выставите размеры какие вам нужны, а потом снова можете сделать ее не активной, те настройки должны сохранится, если не получится, то можете попробовать сделать точно так же, но программно, эт на крайний случай .

[XATAB]

спс, буду пробовать )

УРААААААААА, нашел способ

    form1.DBGrid1.Columns.Grid.Fields[0].DisplayWidth := 30;
    form1.DBGrid1.Columns.Grid.Fields[1].DisplayWidth := 30;
    form1.DBGrid1.Columns.Grid.Fields[2].DisplayWidth := 30;
    form1.DBGrid1.Columns.Grid.Fields[3].DisplayWidth := 30;
    form1.DBGrid1.Columns.Grid.Fields[4].DisplayWidth := 30;

[mihali4]

Сообщение от XATAB

УРААААААААА, нашел способ[/CODE]

Довольно извращенческий способ вы нашли...
Это гораздо проще делается:
DBGrid1.Columns[1].Width:=300;