Вторник, 12.11.2019, 16:25
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

Тема. Додавання нової форми.

Компонент форма є об'єктом, відсутнім на палітрі компонентів. Щоб додати нову форму в проект, потрібно вибрати команду Файл - Створити форму або натиснути кнопку Створити форму на панелі інструментів.

Появиться нова порожня форма. Називатися вона буде Form2, а відповідний їй файл з вихідними текстами додасться в Редактор коду на нову вкладку Unit2.

Після додавання нової форми, проект потрібно зберегти.
Для показу форм можна використовувати один з двох методів: Show або ShowModal.

  • метод Show призначений для показу форми в звичайному вікні,
  • а ShowModal - для показу форми в модальному вікні.

Різниця між цими двома видами вікон полягає в тому, що між звичайними вікнами можна переміщатися довільним способом, а перейти в інше вікно з модального вікна можна тільки після його закриття. 

Вправа 6.  «Три форми»
Завдання. Створити додаток з трьома формами: Головне вікно, Звичайне вікно і Модальне вікно. Форму
Звичайне вікно викликати в звичайному вікні. Для виклику форми Form3 використовувати модальне вікно. На малюнку показані головна форма і підформи нашого нового проекту.

 

1. Створіть новий додаток, збережіть файли проекту в папці «Три форми».
2. Додайте на формі Form1 3 кнопки, змініть властивості об'єктів .

Інтерфейс  Form1

2. Створіть формуForm2. Для цього виберіть в меню Файл команду Створити форму. На екрані з'явитися нова форма Form2, в редакторі коду - нова вкладка unit2.

  
3. Встановіть на формі компонент RadioGroup для вибору кольору, дві кнопки

      

4. Створіть ще одну форму - Форма Form3, вибравши команду Файл-Створити форму. На екрані з'явитися нова форма  Form3 а в редакторі коду - нова вкладка Unit3.

 ⇒
5. Додайте на form3 :   кнопки, компонент CheckGroup та напис. Налаштуйте властивості   

  

Програмний код для форми Form1 (модуль Unit1)

У модулі Unit1 в розділі Implementation необхідно записати директиву uses:

                                                        uses Unit2, Unit3;

Це необхідно для того щоб модулі Unit2, Unit3  форм Form2_ звичайне вікно  і Form3_модальне вікно  були видимі в головному модулі Unit1.

Написати обробники подій для кнопок форми Form1.

implementation
  uses Unit2, Unit3;

{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Form3.ShowModal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;

Відкриваємо програмний код форми Form2 (модуль Unit2) .
В модулі Unit2 в розділі
implementation записати директиву uses:
                                                                               
                                                                      uses Unit1;
Це необхідно для того щоб головний модуль Unit1 формиForm1 був бачимо в цьому модулі.

 

Програмний код кн."Підтвердити вибір кольору" . Після клацання на цій кнопці буде відбуватися зміна кольору головної форми.

  implementation
  uses Unit1;
{$R *.lfm}
 { TForm2 }

   procedure TForm2.Button2Click(Sender: TObject);
   begin
 if radioGroup1.ItemIndex=0 then Form1.color:=clWhite;
if radioGroup1.ItemIndex=1 then Form1.color:=clRed;
if radioGroup1.ItemIndex=2 then Form1.color:=clBlue;
if radioGroup1.ItemIndex=3 then Form1.color:=clGreen;
   end;

Програмний код кн."Перехід в головне вікно".

procedure TForm2.Button1Click(Sender: TObject);
begin
  close;

end;      
 

Переходимо в програмний код форми Form3 (модуль Unit3) .В модулі Unit3 в розділі implementation записати директиву uses:
                                                      
   
uses Unit1;

Модуль Unit1 форми Form1 повинен бути видимий в цьому модулі. 

   uses Unit1;
{$R *.lfm}

     { TForm3 }

     procedure TForm3.Button2Click(Sender: TObject);
     begin
       Close;
     end;

procedure TForm3.Button3Click(Sender: TObject);
begin
        Form1.Width := 350;
        Form1.Height := 180;
        Form1.Color := clOlive;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
If CheckGroup1.Checked[0] Then Form1.Caption := 'Заголовок изменен';
If CheckGroup1.Checked[1] Then Form1.Color := clLime;
If CheckGroup1.Checked[2]
                 Then
                          begin
                                    Form1.Width := 500;
                                   Form1.Height := 200;
                         end;

end;    

 Список, що розкривається

Форма входа
Поиск
Календарь
«  Ноябрь 2019  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2019
    Конструктор сайтов - uCoz