如何让inputbox在几秒之后自动消失 RT 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 对。用TIMER组件。可以自己设计一个窗体,然后加上一个TIMER,自己定义时间,在窗体的oncreate事件中让TIMER组件生效,timer事件用close 我的意思是:将一个已经打开的inputbox在几秒后关闭,用消息或其他办法,当然要加在timer里,可是在里面加什么呢,总不能添加一个timer就完事了吧。 whitetiger8(键盘未敲坏,基本功未练成有道理 自己用Form做一个InputBox,打开的时候启动Timer,等待Timer时间一到,把InputBox Form关了Timer1.Interval:= 3000;TInputBox.OnShow(...)begin Timer1.Enable:= true;end;InputBox.Timer1OnTime(...);begin InputBox.Close;end; 参照InputQuery函数的VCL的实现,把这个函数中的showModal的部分去掉,建立一个CreateInputQuery函数,返回一个Form在Time中ShowModal. 楼上的正解,补充一下.TInputBox.OnShow(...)begin Timer1.Enable:= true;end;InputBox.Timer1OnTime(...);begin InputBox.Close; Timer1.Enable:= false;end; rzdbedit 无法找到相关字段 一个有关显示的问题 Delphi系统问题! 既然Delphi8那么好,为什么还有那么多人在用D6和D7??? 如何让我的EXE在操作系统里进程只能存在一个? 如何新增单元 奇怪,怎么不能用啊 (版主别骂我, 我已经找过了, 但是没找着)怎样用{$define}定义一个几个单元都能用{$ifdef}来使用的符号常量? 怎样让DBGrid有象DBLookupComboBox一样的功能? 大家快看:http://www.cnhonker.com/hack.html Delphi错误及处理--如何完全地把错误逮住 我想在报表中横向输出两条数据库的记录如何做???
有道理
Timer1.Interval:= 3000;TInputBox.OnShow(...)
begin
Timer1.Enable:= true;
end;InputBox.Timer1OnTime(...);
begin
InputBox.Close;
end;
begin
Timer1.Enable:= true;
end;InputBox.Timer1OnTime(...);
begin
InputBox.Close;
Timer1.Enable:= false;
end;