如何让inputbox在几秒之后自动消失

RT

解决方案 »

  1.   

    对。用TIMER组件。可以自己设计一个窗体，然后加上一个TIMER，自己定义时间，在窗体的oncreate事件中让TIMER组件生效，timer事件用close
      

  2.   

    我的意思是：将一个已经打开的inputbox在几秒后关闭，用消息或其他办法，当然要加在timer里，可是在里面加什么呢，总不能添加一个timer就完事了吧。
      

  3.   

    whitetiger8(键盘未敲坏，基本功未练成
    有道理
      

  4.   

    自己用Form做一个InputBox，打开的时候启动Timer，等待Timer时间一到，把InputBox Form关了
    Timer1.Interval:= 3000;TInputBox.OnShow(...)
    begin
     Timer1.Enable:= true;
    end;InputBox.Timer1OnTime(...);
    begin
      InputBox.Close;
    end;
      

  5.   

    参照InputQuery函数的VCL的实现,把这个函数中的showModal的部分去掉,建立一个CreateInputQuery函数,返回一个Form在Time中ShowModal.
      

  6.   

    楼上的正解,补充一下.TInputBox.OnShow(...)
    begin
     Timer1.Enable:= true;
    end;InputBox.Timer1OnTime(...);
    begin
      InputBox.Close;
      Timer1.Enable:= false;
    end;