Самостоятельная работа. Практическое задание

Begin

Практическое задание

Создадим проект «Платные услуги ЗАГСа». На форме расположим компонент TabControl с двумя закладками. На первой вкладке будет содержится информация об организации, на другой - информация об услугах. Для первой закладки расположим в клиентской области объекта TabControl компонент Image и два компонента Label. Для второй – Image и пять Label. В момент переключения закладок один набор объектов должен становиться невидимым, а второй, наоборот, видимым.

Опишем процедуру выбора новой закладки.

procedure TForm1.TabControlChange(Sender: TObject);

case TabControl.TabIndex of

0: begin

image1.Visible:=true;

image2.Visible:=false;

label1.Visible:=true;

label2.Visible:=true;

label3.Visible:=false;

label4.Visible:=false;

label5.Visible:=false;

label6.Visible:=false;

label7.Visible:=false;

end;

1: begin

image2.Visible:=true;

image1.Visible:=false;

label2.Visible:=false;

label1.Visible:=false;

label3.Visible:=true;

label4.Visible:=true;

label5.Visible:=true;

label6.Visible:=true;

label7.Visible:=true;

end;

end;

end;

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

Дата добавления: 2015-05-09