|
Навигация
|
Главная » Новости Создание окна мастера (исходники)Источник: codingclub Сегодня я раскажу, как можно создать простейшее и удобное окно мастера. В нём будет создано несколько панелей, каждая из которых будет содержать инфу для определённого шага и при выполнении панели будут просто сменять друг-друга. Создай новый проект. Брось на форму две кнопки "Назад" и "Далее". Теперь положи на форму компонент TPanel c закладки "Standard". Установи на нём любые компоненты, а можешь просто сделать какую-нибудь надпись. Теперь брось на форму ещё одну панель. Её нужно поставить прямо над первой панелью. Теперь создадим обработчик события OnShow для формы и напишем в нём следующее: procedure TForm1.FormShow(Sender: TObject); begin Panel1.Visible:=true; Panel2.Visible:=false; Panel3.Visible:=false; end; procedure TForm1.Button1Click(Sender: TObject); begin //Если видна первая панель, то сделать видимой вторую if Panel1.Visible=true then begin Panel1.Visible:=false; Panel2.Visible:=true; exit; end; //Если видна вторая панель, то сделать видимой первую if Panel2.Visible=true then begin Panel2.Visible:=false; Panel3.Visible:=true; exit; end; end; procedure TForm1.Button2Click(Sender: TObject); begin if Panel3.Visible=true then begin Panel3.Visible:=false; Panel2.Visible:=true; exit; end; if Panel2.Visible=true then begin Panel2.Visible:=false; Panel1.Visible:=true; exit; end; end; Arena 9.0. Компания Rockwell Automation выпустила Arena Product Suite 11.0. Новая логика и факторы развития КИС. Авиапрограммистов продали с третьего раза. Визитная карточка как вид документа.. Главная » Новости |
© 2024 Team.Furia.Ru.
Частичное копирование материалов разрешено. |