如何在程序没有hint的时候，状态栏始终显示一些文本，如版权。(25分)

T

Tomorrows

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #1

我用的代码和不合理：

application.onhint:=displayhint;


procedure TForm1.Displayhint(Sender: TObject);
begin
statusbar1.SimpleText:=application.hint;
if application.Hint='' then statusbar1.SimpleText:='Copyright';
end;

没有hint的时候就始终显示Copyright

 

S

sundart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #2

也可以：双击Statusbar,再添加一个子项。
设置她的SimpleText为“Corpright"

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #3

用TAppEvent控件
onhint:
if hint = '' then
applicaton.hint := 'what you want'
else
application.hint := hint;

 

B

BDFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #4

我试过了，你的代码完全正确呀！
有Hint时显示Hint，没有时显示‘CopyRight’
是我没看懂你的意思吗？

 

K

kisse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-04

• #5

好象是没什么问题

 

T

Tomorrows

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-05

• #6

多人接受答案了。