|
#20
|
||||
|
||||
Цитата:
Код:
procedure TForm1.SpeedButton9Click(Sender: TObject); begin edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption; end; procedure TForm1.SpeedButton10Click(Sender: TObject); begin edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption; end; procedure TForm1.SpeedButton11Click(Sender: TObject); begin edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption; end; procedure TForm1.SpeedButton5Click(Sender: TObject); begin edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption; end; procedure TForm1.SpeedButton6Click(Sender: TObject); begin edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption; end; procedure TForm1.SpeedButton7Click(Sender: TObject); begin edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption; end; procedure TForm1.SpeedButton12Click(Sender: TObject); begin edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption; end; procedure TForm1.SpeedButton8Click(Sender: TObject); begin edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption; end; |