Создадим проект «Платные услуги ЗАГСа». На форме расположим компонент TabControl с двумя закладками. На первой вкладке будет содержится информация об организации, на другой - информация об услугах. Для первой закладки расположим в клиентской области объекта TabControl компонент Image и два компонента Label. Для второй – Image и пять Label. В момент переключения закладок один набор объектов должен становиться невидимым, а второй, наоборот, видимым.
Опишем процедуру выбора новой закладки.
procedure TForm1.TabControlChange(Sender: TObject);
Begin
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;
