Частично восстанавливаю пример калькулятора по Д.Осипову. Основная особенность – присвоить 1 событие нажатия на кнопку, соответствующую цифре для всех кнопок (1-9);
1 2 3 4 5 6 7 |
procedure TForm2.CornerButton1Click(Sender: TObject); begin if Label1.Text='0' then label1.Text:=(sender as tcornerbutton).Text else label1.Text:=label1.Text+(Sender as tcornerbutton).Text; end; |