Свойства компонента StringGrid

Кроме типичных свойств (Color, Name, Width и т.п.) имеется ряд полезных свойств, которые часто используются при создании таблиц:

RowCount - количество строк;

ColCount - количество столбцов;

DefaultColWidth - ширина колонки;

DefaultRowHeight - высота строки и др.

Для доступа к ячейкам таблицы со стороны клавиатуры надо в свойстве Option установить значение подсвойства GoEditing равным True.

Свойство Options является множеством, определяющим многие свойства таблицы: наличие разделительных вертикальных и горизонтальных линий в фиксированных (goFixedVertLine и goFixedHorzLine) и не фиксированных (goVertLine и goHorzLine) ячейках, возможность для пользователя изменять с помощью мыши размеры столбцов и строк (goColSizing и goRowSizing), перемещать столбцы и строки (goColMoving и goRowMoving) и многое другое.

Свойство ScrollBars определяет наличие в таблице полос прокрутки. Причем полосы прокрутки появляются и исчезают автоматически в зависимости от того, помещается таблица в соответствующий размер, или нет.

Пример: Вывод таблицы чисел.

Создадим проект расчета таблицы значений функции аналогичный предыдущему примеру с компонентом Memo, но для представления резульратов будем использовать компонент StringGrid. Вид формы этого проекта приведен на рис.5.25.3.

Рис.5.25.3.

Первый фиксированный столбец будем использовати для вывода номера строки таблицы (переменная К).

Порядок создания проекта.

Откроем новый проект: File / New Applicanion.

Перейдем на страницу Additional палитры компонентов, щелкнем по птктограмме (StringGrid) и нарисуем в форме прямоугольник. Появится таблица содержащая по умолчанию 5 строк и 5 столбцов.

Установим значение свойства RowCount (количество строк) равным 50, а значение свойства ColCount равным трем. Снимем выделение - на экране будет таблица из трех столбцов.

Выделим таблицу и установим значение свойства DefaultColWidth (ширина столбцов) равным 120.

Создадим кнопку "Таблица" как и в предыдущем примере.

Двойной щелчек по кнопке - появится модуль формы. Добавим в модуль формы необходимый текст, в результате получим:

-----------------------------------------------

unit UniGrid;

{компонент StringGrid, пример таблица значений функции }

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Label4: TLabel;

StringGrid1: TStringGrid;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

X,Xn,dx:Extended;

N:Integer;

XA,Y:array [1..50] of Extended;

S1,S2,S3:String;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

Var K:Integer;

begin

X:=StrToFloat(Edit1.Text);

dx:=StrToFloat(Edit2.Text);

N:=StrToInt(Edit3.Text);

For k:=1 To N Do Begin {расчет массивов}

Y[k]:=X*X;

XA[k]:=X;

x:=x+dx;

end;

StringGrid1.Cells[1,0]:='X'; {заголовки столбцов}

StringGrid1.Cells[2,0]:='Y';

For k:=1 To N Do Begin

{преобразование чисел в строковое представление}

Str(XA[k]:14,s1);

Str(Y[k]:14,s2);

S3:=IntToStr(k);

StringGrid1.Cells[0,k]:= s3; {запись в таблицу}

StringGrid1.Cells[1,k]:= s1;

StringGrid1.Cells[2,k]:=s2;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

end.