1.1.1.1.1. Рис. 11. Примеры окон сообщений

Примечания:

1. MessageDlg может иметь статус функции. Тогда она возвращает в качестве результата значение кнопки, которую выбрали для закрытия окна. Список этих значений: mrNone, mrOK, mrCancel, mrAbort, mrRetry, mrIgnore, mrYes, mrNo, mrAll. Первое из них указывает на то, что ни одна кнопка не была нажата, а другие значения очевидны.

Фрагмент программы с использованием значения, возвращаемого функцией MessageDlg , может быть таким:

If MessageDlg (‘Показать промежуточный результат ? ‘,mtConfirmation,

[mbYes, mbNone],0) = mrYes then …

При любом использовании MessageDlg, окно сообщения выводится в центре формы.

Библиотечные модули

Библиотека визуальных компонентов содержит набор классов . Классы реализованы в модулях. Например, System (Tobject) Classes (Tcomponent)

Controls( Tcontrol)

Компоненты - это вид объектов - визуальный объект (визуальный для проектирования, а не для отображения)

Первый проект

Задача. Ввести 2 целых числа. Вычислить их сумму.

1. Загрузить Delphi из главного меню

2. Создать стартовую форму

   1. В окне Object Inspector зададим свойства формы

Name – имя формы в программе Form1

Caption – текст заголовка Вычисление суммы

3. Добавить в форму компонент Edit - поле редактирования. Он находится на вкладке Standard

2. В окне Object Inspector зададим свойства компоненты

Name – имя в программе Edit1

Text – текст в поле ввода чистое поле

4. Добавить в форму компонент Edit2 аналогичным образом

5. Добавить в форму компонент Label1

В окне Object Inspector зададим свойства компоненты

Name Label1 Caption Первое число

4. Добавить в форму компонент Label2 аналогичным образом

Для ввода второго числа

4. Добавить в форму компонент Label3

В окне Object Inspector зададим свойства компоненты

Name Label3 Caption пустое поля, для ответа

4. Добавить в форму компонент Командная кнопка - Button

В окне Object Inspector зададим свойства компоненты

Name Button1 Caption Вычислить

4. Добавить в форму компонент Командная кнопка - Button

В окне Object Inspector зададим свойства компоненты

Name Button2 Caption Завершить

4. Написать процедуру обработки события Щелчек кнопки мыши по кнопке Вычислить

   1. Выберите кнопку Вычислить В окне Object Inspector выбрать вкладку Events и выбрать обрабатываемое событие

OnClick – щелчек мыши

OnDblClick двойной …

OnMouseDown нажатие кнопки мыши

OnMouseUp отпускание ….

OnMouseMove перемещение …

OnKeyPressed нажатие клавиши клавиатуры

OnKeyDown …..

OnKeyUp отпускание …

2. Сделайте двойной щелчок в поле рядом с именем события

3. Откроется окно редактора кода . В нем написать код

procedure TForm1.Button1Click(Sender: TObject);

var x1,x2:Integer;

begin

x1:= StrtoInt(edit1.Text);

x2:= StrtoInt(edit2.Text);

Label3.caption:='Сумма = ' + IntToStr(x1+x2);

end;

4. Написать процедуру обработки события Щелчек кнопки мыши по кнопке Завершить

5. Выберите кнопку Завершить В окне Object Inspector выбрать вкладку Events и выбрать обрабатываемое событие

   1. Сделайте двойной щелчок в поле рядом с именем события

Откроется окно редактора кода . В нем написать код

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Close;

end;

Сохранить проект