Скачать: CL | DM;

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

← →
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]

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

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:23) [6]

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

---

← →
atruhin ©   (2006-05-20 21:27) [7]

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

---

← →
Desdechado ©   (2006-05-21 15:09) [8]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c