一个小难题,请问如何判断和记录下按钮的第一次点击?

Question

比如,
窗体中有一个Button,一个Edit,
请问如何判断和记录下Button的第一次点击时Edit的值?谢了.

Answer 1

很简单的，用Button的属性Tag，默认是0，你可以在Buttonclick事件中写：
proceduce tform1.buttonClick();
begin
  Button1.tag :=Button.tag+1;
  Edit1.text := intToStr(tag); end;
注意要把Button1的tag在属性栏中设为0！

Answer 2

可以使用button.tag属性标记是否是第一次点击，tag一般情况下是0:
procedure tform1.button1click(sender:Tobject);
begin
if button1.tag=0 then //=0表示是第一次点击
begin 
  button1.tag=1;  
  textvalue:=edit1.text; //使用textvalue这个变量记录第一次点击时edit的值
end
else
  //do something you like
end;