5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
wenjianyao 2004-12-06
- 打赏
- 举报
whitetiger8(键盘未敲坏，基本功未练成
有道理
有道理
ThenLong 2004-12-06
- 打赏
- 举报
有过类似应用，建议你有时间去考虑，不如自定义对话框，呵呵
jabcf 2004-12-06
- 打赏
- 举报
我的意思是：将一个已经打开的inputbox在几秒后关闭，用消息或其他办法，当然要加在timer里，可是在里面加什么呢，总不能添加一个timer就完事了吧。
whitetiger8 2004-12-06
- 打赏
- 举报
对。用TIMER组件。可以自己设计一个窗体，然后加上一个TIMER，自己定义时间，在窗体的oncreate事件中让TIMER组件生效，timer事件用close
Samland 2004-12-06
- 打赏
- 举报
用 Timer 控件
vfork 2004-12-06
- 打赏
- 举报
楼上的正解,补充一下.
TInputBox.OnShow(...)
begin
Timer1.Enable:= true;
end;
InputBox.Timer1OnTime(...);
begin
InputBox.Close;
Timer1.Enable:= false;
end;
TInputBox.OnShow(...)
begin
Timer1.Enable:= true;
end;
InputBox.Timer1OnTime(...);
begin
InputBox.Close;
Timer1.Enable:= false;
end;
xthmpro_cn 2004-12-06
- 打赏
- 举报
参照InputQuery函数的VCL的实现,把这个函数中的showModal的部分去掉,建立一个CreateInputQuery函数,返回一个Form在Time中ShowModal.
Samland 2004-12-06
- 打赏
- 举报
自己用Form做一个InputBox，打开的时候启动Timer，等待Timer时间一到，把InputBox Form关了
Timer1.Interval:= 3000;
TInputBox.OnShow(...)
begin
Timer1.Enable:= true;
end;
InputBox.Timer1OnTime(...);
begin
InputBox.Close;
end;
Timer1.Interval:= 3000;
TInputBox.OnShow(...)
begin
Timer1.Enable:= true;
end;
InputBox.Timer1OnTime(...);
begin
InputBox.Close;
end;
才子鸣 2004-12-06
- 打赏
- 举报
timer
sdqhlyf 2004-12-06
- 打赏
- 举报
用消息处理机制，把它关了也行。
