подписать столбцы в компоненте StringGrid и убрать поля для надписи строк?

[фЁдОр]

Подскажите, пожалуйста, как мне подписать столбцы в компоненте StringGrid и убрать поля для надписи строк? Может нужно совсем другой компонент использовать для отображения БД.

[Stilet]

Подписать столбцы можно просто StringGrid.cell[0,0]:='Первая колонка'
StringGrid.cell[1,0]:='Вторая колонка'
И пусть будет выставлено Stringgrid.FixedRow:=1;

А насчет "убрать поля для надписи строк?" Эт я не очень понял, но возможно имеется ввиду Stringgrid.FixedCol:=0;

[фЁдОр]

Stilet - а нельзя подписывать столбцы через инспетр объектов? И я попробовал программно написать как ты мне посоветовал, но он ругается, может я что-то не так делаю!

[Virtson]

может вам лучше использовать ListView ?

[Stilet]

Федя в Инспекторе этого не предусмотрено
Вот пример :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
with StringGrid1 do begin
FixedCols:=0;FixedRows:=1;
ColCount:=7;

Cells[0,0]:='Уравнение Регрессии';
Cells[1,0]:='Дисперсия опыта';
Cells[2,0]:='Дисперсия адекватности';
Cells[3,0]:='Коэф. Корреляции №1';
Cells[4,0]:='Коэф. Корреляции №2';
Cells[5,0]:='Критерий Фишера';
Cells[6,0]:='Критерий Стьюдента';

end;
//********** END WITH ****** {}

end;

end.

[фЁдОр]

Спасибо большое, получилось и вроде бы разобрался, но если можно, прокоментируйте
with StringGrid1 do begin //
FixedCols:=0;FixedRows:=1;//
ColCount:=7;//
а то я как-то смутно представляю, что здесь происходит.

[Stilet]

Можно :
with StringGrid1 do begin // Используя компонент StringGrid1 обращаться к его следующим свойствам
FixedCols:=0;FixedRows:=1;//Кол-во фиксированых колонок=0 Кол-фо фиксированых строк = 1
ColCount:=7;// Кол-во колонок вообще = 7

[фЁдОр]

А почему названия столбцов отображаются только тогда, когда мышкой нажимаешь на какую-либо ячейку?

[Stilet]

У меня такого нет. Все нормально отображается. Ищи в Коде ошибки.

[фЁдОр]

Че-то не доганяю, я какой код не писал, разместил всего несколько компонентов и все. Вот код, который автоматом прописывается, может подскажите....
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls, ComCtrls, Grids, DBGrids;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
F31: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
F11: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
F81: TMenuItem;
CtrlDel1: TMenuItem;
N12: TMenuItem;
Ins1: TMenuItem;
CtrlIns1: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
ComboBox1: TComboBox;
Label2: TLabel;
Edit1: TEdit;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
Label1: TLabel;
StringGrid1: TStringGrid;
procedure StringGrid1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
with StringGrid1 do begin
StringGrid1.FixedCols:=0;StringGrid 1.FixedRows:=1;
StringGrid1.ColCount:=7;
StringGrid1.Cells[0,0]:='Íàèìåíîâàíèå òîâàðà';
StringGrid1.Cells[1,0]:='Åä. èçìåðåíèÿ';
StringGrid1.Cells[2,0]:='Äèñïåðñèÿ àäåêâàòíîñòè';
StringGrid1.Cells[3,0]:='Êîýô. Êîððåëÿöèè ¹1';
StringGrid1.Cells[4,0]:='Êîýô. Êîððåëÿöèè ¹2';
StringGrid1.Cells[5,0]:='Êðèòåðèé Ôèøåðà';
StringGrid1.Cells[6,0]:='Êðèòåðèé Ñòüþäåíòà';
end;
end.