| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

wirg ©   (2006-05-20 19:11:00) 

У меня есть форма 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;

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

---

Desdechado   (2006-05-21 15:09:00) [1]

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

---

atruhin   (2006-05-20 21:27:00) [2]

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

---

wirg   (2006-05-20 21:23:00) [3]

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

---

wirg   (2006-05-20 21:15:00) [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:00) [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:07:00) [6]

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

---

atruhin   (2006-05-20 21:01:00) [7]

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

---

wirg   (2006-05-20 20:33:00) [8]

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

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;

---

Наверх