// Главная форма
frm=new TForm();
frm.Caption="JS+ - событие TStringGrid OnSelectCell";
// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Пример текстовой таблицы";
// Текстовая таблица
stg=new TStringGrid(frm);
stg.BorderStyle=bsSingle;
stg.ScrollBars=ssNone;
stg.Options=goDrawFocusSelected | goFixedHorzLine | goFixedVertLine | goHorzLine | goVertLine;
stg.FixedCols=stg.FixedRows=1;
stg.ColCount=6;
stg.RowCount=10;
stg.DefaultColWidth=stg.TextWidth("_Столбец 000_");
stg.ColWidths[0]=stg.TextWidth("_Строка 000_");
stg.Left=stg.Top=10;
stg.ClientWidth =stg.GridWidth;
stg.ClientHeight=stg.GridHeight;
stg.OnSelectCell=stg_SelectCell;
// Заголовки столбцов
for (i=stg.FixedCols;i<stg.ColCount;i++)
stg.Cells[i][0]=" Столбец "+i;
// Заголовки строк
for (i=stg.FixedRows;i<stg.RowCount;i++)
stg.Cells[0][i]=" Строка "+i;
// Тело таблицы
for (i=stg.FixedCols;i<stg.ColCount;i++)
for (j=stg.FixedRows;j<stg.RowCount;j++)
stg.Cells[i][j]=" ["+i+":"+j+"]";
// Подогнать размер формы под размер таблицы
frm.ClientWidth =stg.Width+stg.Left*2;
frm.ClientHeight=stg.Height+stg.Top*2+stb.Height;
stg.SetFocus();
frm.ShowModal();
// Обработчик события OnSelectCell
function stg_SelectCell(stg,col,row,canSelect)
{
stb.SimpleText=" Выбрана ячейка"+stg.Cells[col][row];
}
