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

[фЁдОр]

Решив одну проблему, вознмкает новая проблема.
Дело в том, что я использую несколько StringGrid'ов, подписывав второй StringGrid вашими рекомендациями, на первом StringGrid'е надписи пропадают! Как подписывать несколько StringGrid'ов, подскажите, пожалуйста?

[geget]

Воспользовался чужим примером, дописал в него как подписывать 2-й StringGrid
--------------------------------------------------------------------------------

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
StringGrid2: 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 ****** {}
with StringGrid2 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.

[Stilet]

Код в студию. Полюбому чет лишнее делаеш...

[Stilet]

а-а-а Федя, ты наверно пытаешся писать во второй грид в том же блоке With который стоит для первого.
Вон выше код смотри.

[фЁдОр]

Я к стати подписывал без этой строчки: with StringGrid1 do begin и нормально подписывались поля, но вся фича в том, что я не могу добится вот этой строчки procedure TForm1.FormCreate(Sender: TObject); как вы мне советовали. Вот я сейчас покажу код, но он подписывает поля, непонятно почему:
procedure TForm1.StringGrid2Click(Sender: TObject);
begin
stringgrid2.rowcount:=30;
stringgrid2.fixedcols:=0;
stringgrid2.fixedrows:=1;
stringgrid2.ColCount:=6;
stringgrid2.Cells[0,0]:='Наименование товара';
stringgrid2.Cells[1,0]:='Ед. измерения';
stringgrid2.Cells[2,0]:='Розничная цена';
stringgrid2.Cells[3,0]:='Оптовая цена';
stringgrid2.Cells[4,0]:='Вид валюты';
stringgrid2.Cells[5,0]:='Фасовка';
end;

[фЁдОр]

И еще, что интересно, я попробовал создать 2 стринггрида через OnCreate, но тогда подписывается только один, тогда я попробова один стринг через OnCreate, а другой через OnActivate - подписываются оба стринга, а третий-та уже не хочет подписываться.

[Aleksandr]

Смотри прикрепленный файл.
1: Долна быть выбрана форма.

[geget]

То есть

TForm1.FormCreate(Sender: TObject);
begin

stringgrid1.rowcount:=30;
stringgrid1.fixedcols:=0;
stringgrid1.fixedrows:=1;
stringgrid1.ColCount:=6;
stringgrid1.Cells[0,0]:='Наименование товара';
stringgrid1.Cells[1,0]:='Ед. измерения';
stringgrid1.Cells[2,0]:='Розничная цена';
stringgrid1.Cells[3,0]:='Оптовая цена';
stringgrid1.Cells[4,0]:='Вид валюты';
stringgrid1.Cells[5,0]:='Фасовка'

stringgrid2.rowcount:=30;
stringgrid2.fixedcols:=0;
stringgrid2.fixedrows:=1;
stringgrid2.ColCount:=6;
stringgrid2.Cells[0,0]:='Наименование товара';
stringgrid2.Cells[1,0]:='Ед. измерения';
stringgrid2.Cells[2,0]:='Розничная цена';
stringgrid2.Cells[3,0]:='Оптовая цена';
stringgrid2.Cells[4,0]:='Вид валюты';
stringgrid2.Cells[5,0]:='Фасовка';

stringgrid3.rowcount:=30;
stringgrid3.fixedcols:=0;
stringgrid3.fixedrows:=1;
stringgrid3.ColCount:=6;
stringgrid3.Cells[0,0]:='Наименование товара';
stringgrid3.Cells[1,0]:='Ед. измерения';
stringgrid3.Cells[2,0]:='Розничная цена';
stringgrid3.Cells[3,0]:='Оптовая цена';
stringgrid3.Cells[4,0]:='Вид валюты';
stringgrid3.Cells[5,0]:='Фасовка'
end;

не подписывает поля? Поподробнее

[Stilet]

Федор внимательно посмотри на код Geget'а. Там четко написано как надо.

[фЁдОр]

Aleksandr vbmenu_register("postmenu_34774", true); , дело в том, что я в Oncreate не могу выбрать стринг, но если я сначало два раза кликну по стрингу, а потом сделаю так, как Вы прислали справку, тогда в Oncreate стринг отображается, но прписывается не procedure TForm1.FormCreate(Sender: TObject), а procedure TForm1.StringGrid2Click(Sender: TObject), хотя подписываются поля нормально, но только для одного стринга.