一道送分题！！！(10分)

C

cjdbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #1

举个例子：
我在窗体上放了一个SpeedButton1, 它的caption为:我的按钮
然后又在窗体上放了StatusBar1, Algin:=alBottom;
SpeedButton1的hint:='我的小东东';
要求如下：
把书标指向SpeedButton1的时候，StatusBar1显示提示信息:'我的小东东'

 

Z

zhj09

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #2

在speedbutton1的onmouseenter事件里，写入statusbar1.text:='';
就可以了。

 

A

apw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #3

在主程序中OnAppHint方法
令Application.OnHint = OnAppHint

在OnAppHint中写：
statusbarq.text:=Application.Hint;

看TApplication的OnHint示例。

 

Z

zkmltyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #4

自已写个过程
Procedure showhint(Sender:Tobject);
begin
StatusBar.Panels[0].Text:=Application.Hint;
end;
在窗体创建是写上以下代码
Application.OnHint:=showhint;

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #5

procedure tform1.displayhint(Sender: TObject);
begin
StatusBar1.Caption := Application.Hint;
end;
procedure tform1.Formcreate(Sender: TObject);
begin
Application.OnHint := DisplayHint;
end;

 

C

cjdbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #6

按照各位方法基本上是可以了，但是有一个非常非常大的遗憾！！
请往下看：
procedure TForm1.FormCreate(Sender: TObject);
begin
StatusBar.Panels[0].Text:='有一个大遗憾';
Application.OnHint := DisplayHint;
end;
procedure tform1.displayhint(Sender: TObject);
begin
StatusBar.Panels[0].Text:=Application.Hint;
end;

使用这个Application.OnHint := DisplayHint;过程之后，
原来的StatusBar.Panels[0].Text:='有一个大遗憾';
再也不会出现了？？
怎么回事？？

 

C

cjdbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #7

哪位大侠能解决我的这个遗憾'

 

C

cjdbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #8

大家帮帮忙好吗？

 

Z

zealothasu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #9

這個很容易的
statusbar的autohint設置為true

然後speedbutton的hint寫'我的小东东'
會自動出來的

如果這樣寫'我的按钮|我的小东东'
並且speedbutton的showhint=true
你會發現狀態攔和speedbutton都會出來hint

 

C

chengangsir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #10

這個很容易的
statusbar的autohint設置為true

然後speedbutton的hint寫'我的小东东'
會自動出來的

 

C

cjdbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #11

我分了两个Panels[0]和panels[1],
"statusbar的autohint設置為true"
它只能在Panels[0]上显示而不能在Panels[1]上显示??
还要我主要的意思是:
procedure TForm1.FormCreate(Sender: TObject);
begin
StatusBar.Panels[0].Text:='有一个大遗憾';
end;
当书标指向其它控件时，显示完其它控件的hint之后，
原先FormCreate事件里建立的StatusBar.Panels[0].Text:='有一个大遗憾',就再也不会出现了

 

A

apw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #12

procedure tform1.displayhint(Sender: TObject);
begin

if Application.Hint <> '' then
StatusBar.Panels[0].Text:=Application.Hint
else
StatusBar.Panels[0].Text:='有一个大遗憾';
end

end;

 

C

cjdbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #13

接受答案了.