如何显示一提示， 十秒钟自动关闭提示窗口

Question

使用一个timer 控件你不打算给分?

Answer 1

在主窗口搞个timeer计时，到了就 显示提示的窗口。close；就可以了阿

Answer 2

同意楼上的楼上的楼上..呵呵..最简单的方法就是加上一个.TIMEER控件...设置时间长度为10000...然后在TIMEER的TIMER中添加关闭窗体的代码不就可以了.呵呵.

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  ls:integer;implementationuses Unit2;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
 form2.show;
 ls:=0;
 timer1.enabled:=true;
  end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ls<=10 then
  ls:=ls+1
else
  begin
    form2.close;
    timer1.enabled:=false;
    end;
end;end.

Answer 4

或这样也可以
procedure TForm1.Button1Click(Sender: TObject);
begin
APPLICATION.CREATEFORM(TFORM2,FORM2);
form2.showMODAL;
SLEEP（10000);
FORM2.FREE;
end;

Answer 5

对不起，上面搞错了。
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
SLEEP（10000);
FORM2.close;//或FOMR2.FREE;
end;
没试过  

Answer 6

 一般来说，HintColor、HintPause、HintHidePause、 HintShortPause通常在Form的OnCreate事件中设定它们的值 （如有需要的话），如以下的一段程序。  
    ProcedureTMainForm．FormCreate（Sender：TObject）；  
    begin  
    Application．HintPause：0；｛使文本提示盒立即出现｝  
    Application．HintPause：clBlue；｛以蓝色小方框的方式出现｝  
    Application．HintHidePause：10000；｛延长停留时间为10秒｝  
    Application．HintShortPause：100；  
    end；
将修改后的Forms．pas存盘，然后重建库文件，以后在你的库文件里，类TApplication就多了一个属性HintFont，你就可以很轻易的通过HintFont属性来修改文本提示盒的字 体、字型大小了，如以下一段程序：     ProcedureTMainForm．FormCreate（Sender：TObject）；  
    Var  
    NewHintFont：TFont．Create；  
    begin  
    NewHintFont：TFont．Create；  
    NewHintFont．Name：′楷体－GB2312′；｛设置字体为楷体｝  
    NewHintFont．Size：12；｛设置字型大小为12｝  
    Application．HintFont：NewHintFont；  
    end；