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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

12
Button1
(Убрать
логотип)
SpeedButton2.Visible:=True;
{Сделать невидимой картинку Image1}
Image1.Visible:=False;
{Поменять цвет заливки фигуры Shap1 на ярко-зеленый}
Shape1.Brush.Color:=clLime
end;
end;
31. Напи-
шите об-
работчик
события
OnClick
кнопки
Speed-
Button2
(Показать
логотип)
procedure TAdditionalTab.SpeedButton2Click
(Sender: TObject);
begin
{Если кнопка SpeedButton2 нажата, то выполнить действия}
if SpeedButton2.Down=True then
begin
{Сделать видимой картинку Image1}
Image1.Visible:=True;
{Восстановить желтый цвет заливки фигуры Shap1}
Shape1.Brush.Color:=clYellow
end;
end;
32. Сохраните формы и
проект на диск
File|Save, File|Save Project As...
33. Проверьте работу про-
граммы
F9. Обратите внимание на подсказки к кноп-
кам
На этом этап, посвященный украшению второй формы нашего проек-
та, будем считать завершенным и приступим к содержательному наполне-
нию формы AdditionalTab.
3. Компоненты MaskEdit и StringGrid
Дополним форму AdditionalTab полями для ввода личной информации
о сотруднике – Фамилия И.О., Телефонный номер, Заработная плата. Орга-
низуем ввод всей введенной информации о сотруднике с двух
форм в сетку
строк.
После завершения примера работы 3 наша форма должна выглядеть
так, как показано на рисунке 5.
План примера 3
1-4. Добавление компонента Edit1 – поля Фамилия И.О..
5-12. Работа с полями MaskEdit – Телефон и
Заработная плата.
13-16. Оформление сетки строк StringGrid1.
17-22. Добавление кнопок BitBtn – Ввести
данные и Очистить
сетку.
23-26. Написание обработчиков нажатий
кнопок BitBtn и тестирование
работы программы.
Рис.5. Макет формы AdditionalTab после
выполнения примера работы 3.

Страницы