toolbar上按钮的hint 怎么关联StatusBar(100分)

J

Jetshot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #1

toolbar上按钮的hint 怎么关联StatusBar

 

O

onlyonekgx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #2

procedure DisplayHint(Sender: TObject);
procedure TForm1.DisplayHint(Sender: TObject);
begin
StatusBar1.SimpleText := GetLongHint(Application.Hint);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint:=DisplayHint;
end;

 

B

BDFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #3

application.onhint := myhint;
procedure myhint
begin
statusbar.panel[0].text := application.hint;
end

 

L

lxc88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-12

• #4

onlyonekgx的挺好!
不过以下代码你也可以参考一下，不光是显示toolbar的button!!
private
{ Private declarations }
procedure ShowHint(Sender: TObject);
procedure TMainForm.FormCreate(Sender: TObject);
begin
Application.OnHint := ShowHint;
end;

procedure TMainForm.ShowHint(Sender: TObject);
begin
StatusBar.SimpleText := Application.Hint;
end;

 

Z

zsag

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-12

• #5

试一下：
statusbar.autohint:=true

 

J

Jetshot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #6

好

 

粗

粗心大意

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-16

• #7

最简单的办法：statusbar.autohint:=true；component.hint := "aaaa|bbbb" ,
aaaa是在HintWindow显示的内容，bbbb是在statusbar显示的内容。

 

H

heipi2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-16

• #8

en,有意思

 

不

不太明白

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-26

• #9

楼主，想看看你的数据操纵类和生成器
qq:79493977

 

S

sprint

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #10

粗心大意 good