Page 27 - 6263

// щоб цей блок спрацював, виконайте програму поза
Delphi IDE
x:=StrToFloat(Edit1.Text); // конвертувати рядок в
число
Edit1.Text:=FloatToStr(x*a);
except // якщо помилка
ShowMessage('Введіть в Edit1 число!');
end;
end;

// подвійний натиск на список ListBox1
procedure TForm1.ListBox1DblClick(Sender: TObject);
var i:integer; s:string;
begin
i:=ListBox1.ItemIndex; //індекс вибраного елементу
s:=ListBox1.Items.Strings[i]; //текст і-го елементу
Memo1.Lines.Add(s); // додати до Memo1 рядок
end;

// зміна значення позиції ScrollBar1
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
if RadioButton1.Checked then // якщо RadioButton1
вибрано
Edit1.Text:=IntToStr(ScrollBar1.Position); // вивести
значення позиції у Edit1
end;

// натиск на CheckBox1
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then // якщо CheckBox1 вибрано
a:=0.5
else // інакше

27