Подскажите как исправить название в заголовке Грида

← →
wirg (2006-05-20 19:11) [0]

У меня есть форма TAB, в которой есть DBGRID и меню выбора Таблиц. Если процедура для загрузки таблиц в грид

Procedure Tables(var tab,sor,cap: string);
begin
Table.Tab.ADOTable1.Active:=false;
Table.Tab.ADOTable1.TableName:=tab;
Table.Tab.ADOTable1.Active:=true;
Table.Tab.ADOTable1.Sort:=sor;
Table.Tab.Grid.DataSource:=Table.Tab.DataSource1;
Table.Tab.Nav.DataSource:=Table.Tab.DataSource1;
Table.Tab.Grid.Columns[0].Visible:=false;
end;

И есть процедуры вызова нужных таблиц

procedure TForm1.ProizClick(Sender: TObject);
var
tabls, sortirovka, caption : string;
begin
tabls:="Proizvoditel";
sortirovka:="Name_proizv ASC";
caption:="Производители";
Tables(tabls,sortirovka,caption);
Tab.ShowModal;
end;

procedure TForm1.TypClick(Sender: TObject);
var
tabls, sortirovka, caption : string;
begin
tabls:="Type_device";
sortirovka:="Name_type ASC";
caption:="Типы устройств";
Tables(tabls,sortirovka,caption);
Tab.ShowModal;
end;

Проблема в том что я не могу помянять заголовки и даже скрыть столбцы. В чём может быть дело?

← →
wirg (2006-05-20 20:33) [1]

Допустим так, но не работает заголовок столбца грида не присваивается

Procedure Tables(var tab,sor,cap: string);
begin
Table.Tab.ADOTable1.Active:=false;
Table.Tab.ADOTable1.TableName:=tab;
Table.Tab.ADOTable1.Active:=true;
Table.Tab.ADOTable1.Sort:=sor;
Table.Tab.Caption:=cap;
Table.Tab.Grid.DataSource:=Table.Tab.DataSource1;
Table.Tab.Nav.DataSource:=Table.Tab.DataSource1;
Table.Tab.Grid.Columns[0].Visible:=false;
end;

procedure TForm1.ProizClick(Sender: TObject);
var
tabls, sortirovka, caption : string;
begin
tabls:="Proizvoditel";
sortirovka:="Name_proizv ASC";
caption:="Производители";
Tables(tabls,sortirovka,caption);
Table.Tab.Grid.Columns[1].Title.Caption:="Текст";
Tab.ShowModal;

end;

← →
atruhin © (2006-05-20 21:01) [2]

Что такое Table, Tab, т.е. какой тип?

← →
wirg (2006-05-20 21:07) [3]

Table-другой модуль Tab-форма с гридом, а cap-заголовок формы только я строчку одну забыл добавить.

← →
wirg (2006-05-20 21:15) [4]

Даже если вот так написать первый столбец видимым остаётся.

Procedure Tables(var tab,sor,cap: string);
begin
Table.Tab.ADOTable1.Active:=false;
Table.Tab.ADOTable1.TableName:=tab;
Table.Tab.ADOTable1.Active:=true;
Table.Tab.ADOTable1.Sort:=sor;
Table.Tab.Caption:=cap;
Table.Tab.Grid.DataSource:=Table.Tab.DataSource1;
Table.Tab.Nav.DataSource:=Table.Tab.DataSource1;
end;

procedure TForm1.ProizClick(Sender: TObject);
var
tabls, sortirovka, caption : string;
begin
tabls:="Proizvoditel";
sortirovka:="Name_proizv ASC";
caption:="Производители";
Tables(tabls,sortirovka,caption);
Table.Tab.Grid.Columns[0].Visible:=false;
Tab.ShowModal;
end;

Подскажите в чём загвоздка?

← →
wirg (2006-05-20 21:15) [5]

← →
wirg (2006-05-20 21:23) [6]

Спасибо уже не нужно сам разобрался

Table.Tab.Grid.Columns[0].Visible:=false;
Вот это работает, что то у тебя в другом месте не так. Попробуй создай тестовый проект, положи TTable, TDataSource, TDBGrid, соедени и в OnCreate формы выполни эту строку, результат напиши.

Tab.Fields[0].Visible:=False; Tab.Fields[1].DiaplayLabel:="Вася";

Подскажите как исправить название в заголовке Грида Найти похожие ветки