Дополнения к заданию

11. Сделайте так, чтобы при щелчках на кнопке Button1(событиеOnClick) приводило к циклической смене отображаемых на ней символов ‘+’, ‘-’, ‘*’, ‘/’. Решение: if Button1.Caption='+' then Button1.Caption:='x' else if Button1.Caption='x' then Button1.Caption:='/' else if Button1.Caption='/' then Button1.Caption:='-' else if Button1.Caption='-' then Button1.Caption:='+';

12. Сделайте так, чтобы когда кнопка Button1имеет фокус, нажатия клавишиAltприводило к циклической смене отображаемых на ней символов ‘+’,‘-’, ‘*’, ‘/’, а при нажатиях клавишиCtrl- в обратной последовательности. Используйте событиеOnKeyUp (отпускание клавиши), обработчик которого имеет заголовокprocedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); причем параметрKey имеет на входе значение 17 для Ctrl и 18 для Alt. Для получения дополнительных сведений щелкните на поле этого события в Инспекторе объектов и нажмите клавишуF1.

13. Измените обработчик Button2Clickтак, чтобы он выполнял ту арифметическую операцию, знак которой изображен на кнопкеButton1(хранится в свойствеCaption).

14. Сделайте так, чтобы, когда поле ввода Edit3имеет фокус, нажатия клавиши с буквойЛприводило к пересылке значения из поля вводаEdit3в поле ввода Edit1, очистке полей вводаEdit3иEdit2,а также передачу фокуса полюEdit2, а при нажатии клавиши с буквойПприводило к пересылке значения из поля вводаEdit3в поле ввода Edit2, очистке полей вводаEdit3иEdit1,а также передачу фокуса полюEdit1. Используйте событиеOnKeyUp (отпускание клавиши), обработчик которого имеет заголовокprocedure TForm1.Edit3KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); причем параметрKey имеет на входе значение 75 для клавиши с буквойЛ и 71 для клавиши с буквойП.ifnot(Keyin[71,75])thenexit;ifIntToStr(Key)='75'thenbegin//Клавиша Л лKkEdit1.Text:=Edit3.Text;Edit2.Text:='';Edit2.SetFocusendelsebegin//Клавиша П пGgEdit2.Text:=Edit3.Text;Edit1.Text:='';Edit1.SetFocusend; Чтобы УЭEdit3 автоматически получал фокус после пересылки вEdit3результата вычислений, в обработчике событияOnClick кнопки Button2следует выполнить операторEdit3.SetFocus;