Стр. 267 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
267
SpeedButton2.Tag:=2;
SpeedButton3.Tag:=3;
SpeedButton4.Tag:=4;
SpeedButton5.Tag:=5;
SpeedButton6.Tag:=6;
SpeedButton7.Tag:=7;
SpeedButton8.Tag:=8;
SpeedButton9.Tag:=9;
//определяет номер операции
ravno.Tag:=0;
plus.Tag:=1;
minus.Tag:=2;
umn.Tag:=3;
del.Tag:=4;
//общий для цифровых кнопок обработчик событий OnClick –
//процедура DigitBtnClick
SpeedButton0.OnClick:=DigitBtnClick;
SpeedButton1.OnClick:=DigitBtnClick;
SpeedButton2.OnClick:=DigitBtnClick;
SpeedButton3.OnClick:=DigitBtnClick;
SpeedButton4.OnClick:=DigitBtnClick;
SpeedButton5.OnClick:=DigitBtnClick;
SpeedButton6.OnClick:=DigitBtnClick;
SpeedButton7.OnClick:=DigitBtnClick;
SpeedButton8.OnClick:=DigitBtnClick;
SpeedButton9.OnClick:=DigitBtnClick;
//общий для кнопок операций обработчик событий OnClick −
// процедура OpBtnClick
ravno.OnClick:=OpBtnClick;
minus.OnClick:=OpBtnClick;
plus.OnClick:=OpBtnClick;
del.OnClick:=OpBtnClick;
umn.OnClick:=OpBtnClick;
end;
13. В инспекторе объектов для кнопки Десятичный разделитель (zap)
создайте процедуру zapClick – обработчик события OnClick.
//выполняется при щелчке на кнопке «запятая»
procedure TForm1.zapClick(Sender: TObject);
begin
//если дестятичный разделитель не найден на индикаторе
if pos(',',Edit1.Text)=0 then
begin
Edit1.Text:=Edit1.Text+',';
//ожидание остальных цифр