Вправа Замовлення квітів.

Завдання.                                                                     СКАЧАТИ ПРОЕКТ

Складіть проект Замовлення квітів у се­редовищі Lazarus для оформлення електронного за­мовлення квітів за зразком. У проекті натиснення кнопки Оформити замовлення викликає виведення відповідного тексту в текстовому полі, яке захищене від змін, а натиснення кнопки Завершити — закриває вікно форми.

Ось що в нас вийшло. 

Елементи вибору квітів CheckBox1- CheckBox5 об’єднані в GroupBox1. Текст Оберіть квіти – це його властивість Caption. 

Елементи вибору пакування RadioButton1- RadioButton3 об’єднані в GroupBox2. Текст Оберіть пакування – це його властивість Caption. 

Для виведення результату вибору використали об’єкт Memo, 

запускає роботу програми кнопка Button1.

Програмний код:

procedure TForm1.Button1Click(Sender: TObject);

begin

  Memo1.Lines.Clear; - очистка Memo1

  Memo1.Lines.Add('Ви обрали квіти:'); - виведення Ви обрали квіти

  if CheckBox1.Checked=true then Memo1.Lines.Add(CheckBox1.Caption);

якщо прапорець встановлено, то вивести на Memo його текст (Caption)

  if CheckBox2.Checked=true then Memo1.Lines.Add(CheckBox2.Caption);

  if CheckBox3.Checked=true then Memo1.Lines.Add(CheckBox3.Caption);

  if CheckBox4.Checked=true then Memo1.Lines.Add(CheckBox4.Caption);

  if CheckBox5.Checked=true then Memo1.Lines.Add(CheckBox5.Caption);

  Memo1.Lines.Add('Ви обрали пакування:');

  if RadioButton1.Checked=true then Memo1.Lines.Add(RadioButton1.Caption);

якщо перемикач встановлено, то вивести на Memo його текст (Caption)

  if RadioButton2.Checked=true then Memo1.Lines.Add(RadioButton2.Caption);

  if RadioButton3.Checked=true then Memo1.Lines.Add(RadioButton3.Caption);

end;  

Робота програми: