关于button得一个小问题。。。。 我想是实现这么一个功能:按下一个按钮后,两秒后才能按第二次,两秒内,这个按钮时无法按得?请问一下如何实现?谢谢。。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);begin TButton(Sender).Enabled:= false; // .... 其它处理 Sleep(2000); TButton(Sender).Enabled:= true;end;或者加一个TIMER控件, 或者加线程都可以... 加一个Timer ,Timer的 Interval 设置为 2000 ,Enabled 为 False;procedure TForm1.Button1Click(Sender: TObject);begin TButton(Sender).Enabled:= false; Timer1.Enabled := True ;end;procedure TForm1.Timer1Timer(Sender: TObject);begin TButton(Sender).Enabled:= True;end; 这种曲线图如何做?请高手帮忙 请问:怎么将控件数组化? 马上要出国了,可是最近接到通知,要打N个预防针,怎么办啊我晕针,救命啊大家帮我出出注意好吗? 很少见的错误,高手进来,非高手勿进,高分相赠。 哪位大侠有用过xpMenu 过程类型问题 SOS,win2000下开发的窗口在98下都增大了 DLL间通讯得问题 请看代码,为什么出错?(关于动态IP) 如何在Delphi中用代碼改變DBGrid.Options下的dgEditing的屬性為False,給高分。 希望tperlregex比较熟的高手,看日期这个正则式怎么弄? 有什么学习DELPHI的书
begin
TButton(Sender).Enabled:= false;
// .... 其它处理
Sleep(2000);
TButton(Sender).Enabled:= true;
end;或者加一个TIMER控件, 或者加线程都可以...
begin
TButton(Sender).Enabled:= false;
Timer1.Enabled := True ;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
TButton(Sender).Enabled:= True;end;