Создание диалоговой панели

Чтобы построить диалоговую панель вместо формы, выберите значение bsDialog для свойства BorderStyle формы. После этого форму можно вывести на экран как модальное или немодальное окно, используя Show или ShowModal. Модальные диалоговые панели распространены больше, чем немодальные. Модальных форм следует избегать, так как пользователь не захочет иметь с ними дело. Вот один из подходов использования диалоговой панели:

1) устанавливать начальные значения, каждый раз когда вы исполняете диалоговую панель;

2) показывать диалоговую панель;

3) если была нажата кнопка OK, скопировать новые значения обратно в форму.

Задание № 1

1. Подготовить две формы, в каждую из которых поместить по кнопке. В первой форме кнопка используется, чтобы показать второе окно, во второй форме – чтобы себя закрыть. Чтобы выполнить вторую форму, запишите код:

procedure TForm1.Button1Click(Sender:TObject);

Begin

Form2.Show;

End;

2. Создать форму, которая имеет две кнопки, используемые для создания модальной и немодальной форм. Как только вы создаете две новые формы ModalForm и ModalessForm, можно написать следующий метод, соответствующий событию OnClick одной из двух кнопок:

procedure TForm1.ModalButtonClick(Sender:TObject);

Var

Modal:TModalForm;

Begin

Modal:=TModalForm.Create Application);