P pingguolu Unregistered / Unconfirmed GUEST, unregistred user! 2007-01-14 #1 第一次点击 edit1.text为1； 第二次点击 edit1.text为2； 。。。 。。。。
一 一条大鱼 Unregistered / Unconfirmed GUEST, unregistred user! 2007-01-14 #2 onClick事件里写如下代码: edit1.text:=IntToStr(StrToInt(edit1.text)+1);
K kjzzn Unregistered / Unconfirmed GUEST, unregistred user! 2007-01-26 #5 0分也要写这么多? 在form的private中声明 procedure WMLBUTTONUP(var MSG:TWMLBUTTONUP);message WM_LBUTTONUP; 实现部分 procedure WMLBUTTONUP(var MSG:TWMLBUTTONUP); begin edit1.text:=IntToStr(StrToInt(edit1.text)+1); inherited; end;
0分也要写这么多? 在form的private中声明 procedure WMLBUTTONUP(var MSG:TWMLBUTTONUP);message WM_LBUTTONUP; 实现部分 procedure WMLBUTTONUP(var MSG:TWMLBUTTONUP); begin edit1.text:=IntToStr(StrToInt(edit1.text)+1); inherited; end;
