计算器4-添加小键盘.txt

来自「学习Delphi最好的教材。通过一个个简单而实用的实例」· 文本 代码 · 共 11 行

计算器4-添加小键盘,可以通过小键盘向Edit1中写数字。
接着"计算器3"
10.向窗体Form1上添加一个"面板"Panel1控件，然后向
"面板"上添加10个"快捷按钮"SpeedButton控件，将它们的
"文字"(Caption属性)分别改为'1'、'2'、'3'、'4'、'5'、'6'、'7'、'8'、'9'、'0'。
11.给"快捷按钮"SpeedButton1添加事件(双击该按钮)，并添加代码
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Edit1.Text:=Edit1.Text+'1';
end;