3. Разработка пользовательского интерфейса.

Разработчики среды Delphi поместили в палитру компонентов то, что считают оптимальным набором “строительных кирпичиков“, достаточным для создания любых приложений. Среди компонентов вы найдете меню, кнопки, надписи, стандартные диалоговые окна и др.

Как видно на рисунке 1.6, все множество компонентов разделено на группы. Каждая группа размещена в палитре компонентов на своей вкладке: Standard — стандартные компоненты пользовательского интерфейса, Additional — дополнительные компоненты пользовательского интерфейса, C ommon Controls — общепринятые для Windows компоненты пользовательского интерфейса и т.д.

В ыбрать нужный компонент из палитры и поместить его на форму очень просто. Например, нам в программе понадобится кнопка (Button) при нажатии на которую вычислялись корни квадратного уравнения. Добавьте ее на форму, для этого:

• Перейдите к нужной вкладке в палитре компонентов;

• Выберите нужный компонент;

• Отметьте на форме то место, где будет находиться компонент, — он мгновенно окажется на форме;

• Придайте компоненту нужные размеры, растягивая по высоте и ширине, и скорректируйте его местоположение, используя имеющуюся на форме сетку.

Д ля изменения свойств компонента (цвет, надпись, шрифт надписей, и т.п.) перейдите к окну Object Inspector. Там вы увидите список свойств компонента Button. В нем нас интересует свойство Caption, так как именно оно определяет содержимое надписи. Замените в свойстве Caption стандартное значение Button1 на Вычислить.

Также для нашей программы потребуются поля ввода (компонент Edit ) для ввода коэффициентов и надписи (метки) (компонент Label ) для описания полей ввода. Разместите 5 компонентов Edit (3 для ввода коэффициентов A, B, C и 2 для вывода корней) и 5 компонентов Label на форме.

Измените значения свойств только что созданных компонентов:

У полей ввода Edit1, Edit2, …, Edit5 удалите значение свойства Text (оставьте пустую строку);

У надписей Label1, Label2, …, Label5 измените значение свойства Caption на A = , B = , C = , X1 = , X2 = соответственно.

Для смены заголовка формы щелкните на пустое место на форме и в Object Inspector измените свойство Caption. Разработка пользовательского интерфейса завершена.

4. Кодирование алгоритма.

Приступим к обработке событий. Начнем с нажатия кнопки Вычислить. Активизируйте кнопку, с которой будем работать, затем перейдите к окну Object Inspector и переключитесь на вкладку Events (события). На ней вы обнаружите список всех возможных событий для активного компонента (в данном случае кнопки). Нас интересует событие OnClick, возникающее при нажатии кнопки. Чтобы запрограммировать обработчик этого события, сделайте двойной щелчок мыши в поле значения. Появится окно редактора кода с заготовкой для нашего обработчика.

Между procedure и begin впишите объявления переменных, а между begin и end алгоритм вычисления квадратного уравнения.

procedure TForm1.Button1Click;

var

a, b, c: Integer;

d, x1, x2: Real;

begin

a := StrToInt(Edit1.Text);

b := StrToInt(Edit2.Text);

c := StrToInt(Edit3.Text);

d := sqr(b) - 4 * a * c;

if d < 0 then begin

Edit4.Text := 'Корней нет';

Edit5.Text := 'Корней нет';

end else begin

x1 := (-b - sqrt(d)) / (2 * a);

Edit4.Text := FloatToStr(x1);

x2 := (-b + sqrt(d)) / (2 * a);

Edit5.Text := FloatToStr(x2);

end;

end;

При кодировании исходного кода Delphi будет подсказывать, и помогать выбрать правильный метод или свойство из списка (функция завершения кода). Для активации списка просто введите имя объекта, например Edit1, и поставьте точку, для принудительного вывода списка нажмите Ctrl+пробел, для удаления, если он не нужен Esc.