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

Информатика. Программирование в Delphi
167
//вертикальная полоса прокрутки справа
Memo1.ScrollBars:=ssVertical;
//запрет на ввод текста
Memo1.ReadOnly:=true;
//запрет работы кнопки Стоп
Button2.Enabled:=false;
//свойство Tag для идентификации компонента
Edit1.Tag:=0;
Edit2.Tag:=0;
Edit3.Tag:=1;
//запрет на ввод текста
Edit4.ReadOnly:=true;
Edit5.ReadOnly:=true;
//назначение процедуры EditKeyPress
//компонентам Edit1,Edit2 и Edit3
Edit1.OnKeyPress:=EditKeyPress;
Edit2.OnKeyPress:=EditKeyPress;
Edit3.OnKeyPress:=EditKeyPress;
//назначение процедуры EditOnChange
//компонентам Edit1,Edit2 и Edit3
Edit1.OnChange:=EditChange;
Edit2.OnChange:=EditChange;
Edit3.OnChange:=EditChange;
//формирование списка значений в компоненте ListBox1
ListBox(ListBox1,StrToFloat(Edit1.Text),StrToFloat(Edit2.Text),
StrToFloat(Edit3.Text));
//формирование списка значений в компоненте ListBox2
ListBox(ListBox2,StrToFloat(Edit1.Text),StrToFloat(Edit2.Text),
StrToFloat(Edit3.Text));
//выделение начальный элемент списка
ListBox1.ItemIndex:=0;
//выделение последний элемент списка
ListBox2.ItemIndex:=ListBox2.Items.Count-1;
end;
8. Создайте процедуру Button1Click для события OnClick кнопки Пуск.
//происходит при нажатии кнопки Пуск
procedure TForm1.Button1Click(Sender: TObject);
begin
//чтение значения верхней границы
up:=StrToFloat(Edit1.text);
//чтение значения нижней границы
down:=StrToFloat(Edit2.text);
//чтение значения цены деления шкалы