Стр. 179 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
179
компонент Label3, в который будем помещать результат вычислений.
5. Создадим процедуру FormCreate для обработки события OnCreate,
возникающего во время создания формы. Оформим ее следующим образом.
//процедура выполняется при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
//стиль границ формы
Form1.BorderStyle:=bsDialog;
//заполнение компонента ComboBox1
ComboBox1.Items.Add('0');
ComboBox1.Items.Add('Pi/6');
ComboBox1.Items.Add('Pi/4');
ComboBox1.Items.Add('Pi/3');
ComboBox1.Items.Add('Pi/2');
ComboBox1.Items.Add('Pi');
ComboBox1.Items.Add('3*Pi/2');
ComboBox1.Items.Add('2*Pi');
//заполнение компонента ComboBox2
ComboBox2.Items.Add('0');
ComboBox2.Items.Add('Pi/6');
ComboBox2.Items.Add('Pi/4');
ComboBox2.Items.Add('Pi/3');
ComboBox2.Items.Add('Pi/2');
ComboBox2.Items.Add('Pi');
ComboBox2.Items.Add('3*Pi/2');
ComboBox2.Items.Add('2*Pi');
//заполнение компонента ComboBox3
ComboBox3.Items.Add('sin(x)');
ComboBox3.Items.Add('cos(x)');
ComboBox3.Items.Add('tg(x)');
ComboBox3.Items.Add('ctg(x)');
ComboBox3.Items.Add('x^y');
ComboBox3.Items.Add('x+y');
ComboBox3.Items.Add('x-y');
ComboBox3.Items.Add('x*y');
ComboBox3.Items.Add('x/y');
//зададим стиль компонента
ComboBox3.Style:=csDropDownList;
//номер текущего элементаравен 0
ComboBox3.ItemIndex:=0;
end;