Question

delphi 实现在焦点所在edit上通过点击10个数字button修改edit的text

修改text可以这样 比如数字1键onclick事件 Edit1.Text:=edit1.text+'1' ;
可是有十几个edit，怎么写 焦点所在edit.text：=焦点所在edit.text+'1'

Answer 1

这蛮简单的，放十个button并将其caption分别为将0到9十个数字，edit1.text:=button1.caption;或
edit1.text:=button2.caption;等，如果edit里的东西不清除，那应该写成edit1.text:=edit1.text+button1.caption;

Answer 2

在这十几个Onclik中引用数字1键的OnClick
(Sender As Tedit).text:=(Sender As TEdit).text+'1';

追问

那具体语句怎么写，比如现在edit1 已经focus了，按数字键1让edit1的text+‘1’ 这个命令怎么写

追答

onKeyDown

追问

我新手，看不懂啊，是在edit的onkeydown里写 //(Sender As Tedit).text:=(Sender As TEdit).text+'1'; // ？

追答

你是做计算器？？？

http://zhidao.baidu.com/question/90222202.html?oldq=1

我原来的一个计算器，你看看吧。