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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

16
String-
Grid1.Cells[3,2]:=StandardTab.ComboBox
1.Text;
StringGrid1.Cells[4,2]:=MaskEdit1.Text;
StringGrid1.Cells[5,2]:=MaskEdit2.Text;
end;
Введем обработчик нажатия кнопки Очистить сетку. Для этого опишем
в процедуре локальную переменную i – параметр цикла.
24. Напи-
шите обра-
ботчик со-
бытия On-
Click кноп-
ки BitBtn4
– Очи-
стить
сетку
procedure TAdditional
T
ab.BitBtn4Click(Sender:
TObject);
var i:integer;
begin
{В таблице StringGrid1 обнулить 6 первых ячеек
3-й строки}
with StringGrid1 do
for i:=0 to 5 do Cells[i,2]:='';
end;
25. Сохраните формы и проект
File|Save All
26. Проверьте работу программы
F9
При работе с проектом обратите внимание на то, что в полях MaskEdit
можно вводить только цифры или ничего. Свойство Text компонента
MaskEdit1 содержит символы маски (208-), отображаемые в колонке Теле-
фон таблицы. Свойство Text компонента MaskEdit2 не содержит символов
маски (р.), отображаемых в колонке Зар.плата,р. таблицы.
4. Компонент
ScrollBox. Работа с файлами
В правом нижнем углу формы расположим компонент ScrollBox (па-
нель с полосой прокрутки), служащий контейнером для других элементов.
ScrollBox экономит место на форме, так как позволяет включать в нее бло-
ки, по размеру превосходящие на форме место, отведенное под компонент
ScrollBox.
Добавленный контейнер ScrollBox мы наполним командными
кнопка-
ми – Запись в файл, Считывание из файла, Помощь.
План примера 4
1-2. Добавление компонента ScrollBox1.
3-10. Создание внутри ScrollBox1 панели с названиями кнопок.
После выполнения примера работы
4 макет формы AdditionalTab будет
выглядеть так, как показано на ри-
сунке 6.
Рис.6. Макет формы AdditionalTab
после выполнения примера работы
4.

Страницы