DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: webb123
今日帖子: 33
在线用户: 17
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
普通会员
2003/5/6 21:28:57
标题:
怎样控制一个按钮只能按一次呀!! 浏览:2767
加入我的收藏
楼主:  怎样控制一个按钮只能按一次呀!!
----------------------------------------------
-
作者:
女 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的人做朋友!
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
普通会员
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菜鸟
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
普通会员
2003/5/12 14:38:14
5楼: 不对呀!!if button1.click这句肯定不对

----------------------------------------------
-
作者:
男 jungangli (西门吹蜡) ★☆☆☆☆ -
普通会员
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
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行89.84375毫秒 RSS