Программа демонстрирует использование компонента CheckBox. Программа позволяет посчитать цену металлопластикового окна. Пример работы CheckBox
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | // щелчок на кнопке OK procedure TForm1.Button1Click(Sender: TObject); var w,h: real; // размер окна summ: real; // сумма begin w := StrToFloat(Edit1.Text); h := StrToFloat(Edit2.Text); summ := (w/100 * h/100) * 2800; // 2800 цена за 1 кв.м. if CheckBox1.Checked then // установлен флажок «подоконник» summ := summ + 750; if CheckBox2.Checked then // установлен флажок «монтаж» summ := summ + 1500; Label3.Caption := FloatToStrF(summ,ffCurrency,6,2); end; // щелчок на переключателе «подоконник» procedure TForm1.CheckBox1Click(Sender: TObject); begin Label3.Caption := »; end; // щелчок на переключателе «монтаж» procedure TForm1.CheckBox2Click(Sender: TObject); begin Label3.Caption := »; end; |