Delphi. Страница Additional. Васильев В.В - 14 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

14
12. Задайте маску ввода размера заработной платы
Свойство EditMask
Справа от столбика полей расположим сетку строк – компонент
StringGrid, который предназначен для отображения на экране строк – вели-
чин типа String (и только такого типа!) в виде таблицы. В сетке строк мы
будем записывать фамилии, должности, отделы, филиалы, номера телефо-
нов и заработную плату наших сотрудников.
13. Положите справа от столбца поле
сетку
строк StringGrid1
Страница Additional
Таблица StringGrid делится на две части – фиксированную и рабочую.
В фиксированной части расположены названия строк и столбцов. В рабо-
чей части – текстовые данные таблицы. Если размеры рабочей части боль-
ше размеров компонента, то автоматически появляются нужные полосы
прокрутки. Научимся управлять видом компонента StringGrid. Некото-
рые свойства компонента StringGrid:
• BorderStyle
Стиль внешней рамки таблицы
• Col,Row
Номер столбца, строки сфокусированной ячейки
• ColCount, Row-
Count
Количество столбцов, строк таблицы
• ColWidth[i],
RowHeights[i]
Одномерный массив, i-й элемент которого содер-
жит ширину столбца, высоту строки номер i
• FixedCols,
FixedRows
Количество столбцов, строк в фиксированной зоне.
• Cells[i,j]
Двумерный массив, обеспечивающий доступ к
данным из ячеек
таблицы StringGrid
Оформим внешний вид компонента StringGrid нашей формы.
14. Задайте в таблице StringGrid1 - 6
столбцов и 4 строки
Свойства ColCount и RowCount
15. Уберите из фиксированной части
таблицы столбцы
Значение 0 свойства FixedCols
На макете формы мы получим таблицу, состоящую из 4 строк и 6
столбцов. При этом по умолчанию запрещено редактирование первой
строки (она входит в фиксированную часть таблицы), в которой мы рас-
положим заголовки столбцов таблицы. Зададим сами ширину каждого по-
ля (ширина по умолчанию может оказаться мала для полного отображе-
ния данных). Для
этого напишем обработчик события OnCreate (при созда-
нии) формы AdditionalTab.
16. Напи-
шите об-
работчик
события
OnCreate
формы
Addition-
procedure TAdditionalTab.FormCreate (Sender:
TObject);
begin
{Задание ширины столбцов таблицы StringGrid1}
StringGrid1.ColWidths[0]:=100;
StringGrid1.ColWidths[1]:=80;
StringGrid1.ColWidths[2]:=90;

Страницы