a question about showmessagebox(20分)

C

cooldren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-11

• #1

showmessage('sdfd')
我想让这个消息20秒后自动消失！！
有没有好办法！

能不能有一个简单的办法

 

V

Vincent_wgp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-11

• #2

还不如做一窗口显示“sdfd"，再用记时器关闭之

 

C

cooldren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-11

• #3

那如何关闭一个showmessage()窗口呢？

 

K

Killer1225

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-12

• #4

自己做一个不就行了？

 

C

chenshaizi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-12

• #5

implementation

{$R *.dfm}
var a:integer;
procedure Tfrm_main.Button1Click(Sender: TObject);
begin
ShowMessage('fff');
Timer1.Enabled:=true;
end;

procedure Tfrm_main.Timer1Timer(Sender: TObject);
begin
a:=a+1;
if a =20 then begin
Screen.ActiveForm.Close;
Timer1.Enabled:=false;
end;
end;

 

C

cooldren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-12

• #6

如果不是当前窗口该怎么办呢？

 

凌

凌云客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-13

• #7

可以自己做一个类似于MessageDlg的对话框，然后把它做成一个像ShowMessage()一样，需要的时候，动态载入就行了嘛。一劳永逸，也不是太麻烦的事啊。

 

A

anyway

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-13

• #8

用 VK 模拟回车键试试

 

C

cooldren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #9

多人接受答案了。