几个edit接收计算器按钮的输入

Question

几个edit接收计算器按钮的输入，如何当其中一个获得焦点时可以重新输入数据？
数据都是由按钮输入的。0---9个按钮分别代表0--9

Answer 1

Edit.OnEnter:(Sender as TEdit).Clear;

Answer 2

我不懂题目，更不懂楼上答案，呵呵
楼主是不是当一个edit获得焦点，然后全部edit清空。重新输入数据？
而按钮，按0-9直接输入strtointdef(BitBtn.caption,0);

Answer 3

LZ的意思应该是鼠标点随便哪个edit，这个edit的内容就被清空
所以用我说的代码。
这些edit的onenter事件全部指向这个

Answer 4

全部edit清空：
for i := 0 to ControlCount - 1 do
  if (Controls[i] is TEdit) then
    (Controls[i] as TEdit).Clear;如果这些edit在某个容器上，比如说panel，那么上面的代码，ControlCount, Controls前面都要加
panel.ControlCount, panel.Controls[i]

Answer 5

恩，楼上的意思我明白。但是设置了以后EDIT1的值在启动的时候就清空了，我想让他保持原来的值。点击按钮的时候再清空，可以实现吗？

Answer 6

1、当一个edit获得焦点，然后全部edit清空
在该edit的onEnter事件写上清空所有edit的text。
2、用键盘输入，是用按钮电击输入数字。
在onKeyPress写上
  if not (Key in ['0'..'9']) then
    Key:=#0;

Answer 7

那就不要在onenter里面写代码啊。给个按钮，再onclick事件写代码就行了

Answer 8

就是现在EDIT1，EDIT2，EDIT3的值是0.000。在程序启动的时候EDIT1的值仍然是0.000。点0--9按钮时输入数字（4.156）。然后转到EDIT2，EDIT2清空再接受输入。再转到EDIT1时，可以重新输入数字。
简单的说就是EDIT1里的值变蓝，按数字按钮就变新值了。

Answer 9

问题很简单，一楼的答案是最好的。代码只用写一行就可以搞定！看来楼主对Delphi不是很熟悉！

Answer 10

我觉得楼主的问题还是得定义一个变量 如果这个EDIT获得焦点 就记录EDIT的名称或其他标识 并把edit的text清空 
然后点击个数字按钮  把数字依次添加到变量值所对应的EDIT中去 

Answer 11

把1楼和13楼结合起来就可以了
1.定义一个公共变量
var
  edno: integer;
2.设置edit1 edit2 edit3的tag 0 1 23.在edit的事件中记录最近被进入的edit的tag即可
procedure TForm1.Edit1Enter(Sender: TObject);
begin
  (Sender as TEdit).Clear;
  edno:=(Sender as TEdit).tag;
end;

Answer 12

我试着在按钮的事件中写让EDIT清空的代码，但是没成功。

Answer 13

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ControlCount - 1 do
    if (Controls[i] is TEdit) and ((Controls[i] as TEdit).tag=0) then
      (Controls[i] as TEdit).Clear;
end;

Answer 14

我想要的就是类似于QQ登陆框那种，EDIT1获得焦点然后值不就变蓝了可以再重新输入了么
就是那种效果。

Answer 15

你是没有定位到具体的EDIT去吧

Answer 16

我把0--9按钮的CLICK事件整合到一起了，在里面写的，不对。