|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#4
14.09.2014, 08:21
|
||||
|
||||
но можно проще:
Код:
procedure TForm1.PageControl1Change(Sender: TObject); begin Panel1.Visible:=PageControl1.ActivePageIndex=0; Panel2.Visible:=PageControl1.ActivePageIndex=1; Panel3.Visible:=PageControl1.ActivePageIndex=2; end; |
Древовидный вид