|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/5/6 21:28:57 |
标题: |
|
加入我的收藏 |
楼主: |
怎样控制一个按钮只能按一次呀!!
----------------------------------------------
- |
作者: |
321 (321) |
★☆☆☆☆ |
-
|
普通会员 |
|
2003/5/6 21:30:56 |
1楼: |
form1.button1onclick(); begin if button1.tag=1 then exit; button1.tag:=1; end;
----------------------------------------------
-
|
作者: |
bbhorse (xinhua2008) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/5/7 20:06:27 |
2楼: |
button1.enable:=false;
----------------------------------------------
愿和所有喜欢DELPHI的人做朋友!
|
作者: |
|
2003/5/12 12:15:22 |
3楼: |
1楼的朋友,怎么不能用呀!!我拿你的程序改了一下,怎么会不对呢? procedure TForm1.Button1Click(Sender: TObject); begin if button1.tag=1 then exit
else begin label1.Caption:='gigi' button1.tag:=1; end; end; end.
----------------------------------------------
-
|
作者: |
wufen (wufen) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/5/12 14:30:45 |
4楼: |
试试这样: procedure TForm1.Button1Click(Sender: TObject); begin if button1.click then button1.tag:=1 begin if button1.tag=1 then exit
else begin label1.Caption:='gigi' button1.tag:=0; end; end; end; end. ----------------------------------------------
----------------------------------------------
delphi菜鸟
|
作者: |
|
2003/5/12 14:38:14 |
5楼: |
不对呀!!if button1.click这句肯定不对
----------------------------------------------
-
|
作者: |
|
2003/5/12 15:03:42 |
6楼: |
设一个全局变量i:ingeger; i:=0;//初始化 form1.button1onclick(); begin if i=1 then exit; //button1事件内容代码 i:=1; end; ----------------------------------------------
----------------------------------------------
-
|
作者: |
neo (轰隆轰隆) |
★☆☆☆☆ |
-
|
普通会员 |
|
2003/5/13 12:37:31 |
7楼: |
procedure TForm1.Button1Click(Sender: TObject); begin ....//你的功能 button1.enable := false ; end
----------------------------------------------
-
|
|