Дополнения к заданию
Сделайте так, чтобы при щелчках на кнопке 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:='+';
Сделайте так, чтобы когда кнопка Button1 имеет фокус, нажатия клавиши Alt приводило к циклической смене отображаемых на ней символов ‘+’,‘-’, ‘*’, ‘/’, а при нажатиях клавиши Ctrl - в обратной последовательности. Используйте событие OnKeyUp (отпускание клавиши), обработчик которого имеет заголовок procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); причем параметр Key имеет на входе значение 17 для Ctrl и 18 для Alt. Для получения дополнительных сведений щелкните на поле этого события в Инспекторе объектов и нажмите клавишу F1.
Измените обработчик Button2Click так, чтобы он выполнял ту арифметическую операцию, знак которой изображен на кнопке Button1 (хранится в свойстве Caption).
Сделайте так, чтобы, когда поле ввода 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 для клавиши с буквой П. if not(Key in [71,75]) then exit; if IntToStr(Key)='75' then begin //Клавиша Л л K k Edit1.Text:=Edit3.Text; Edit2.Text:=''; Edit2.SetFocus end else begin //Клавиша П п G g Edit2.Text:=Edit3.Text; Edit1.Text:=''; Edit1.SetFocus end; Чтобы УЭ Edit3 автоматически получал фокус после пересылки в Edit3 результата вычислений, в обработчике события OnClick кнопки Button2 следует выполнить оператор Edit3.SetFocus;