状态栏的分段编程(20分)

  • 主题发起人 主题发起人 afellholl
  • 开始时间 开始时间
A

afellholl

Unregistered / Unconfirmed
GUEST, unregistred user!
我把状态栏分成了三块,但状态信息只能在第一个(0)中显示,
其它的只能显示静态文本,请问如何控制,详细一点
 
TStatusBar有Panels属性,是一个列表
StatusBar1.Panels.Text:=' ';
记得把SimplePanel设为False;
 
我问就是如何把控件的hinT属性表现到panels中,而不是静态的设置,请
详细一些
 
鼠标指在TStatusBar上按右键选择PANELS EDITOR 后再选ADD NEW即可进行编辑。
 
agree with Nose
 
procedure Tform1.Create(Sender :Tobject)
begin
Application.OnHint := HintHandler;
end;

procedure Tform1.HintHandler(Sender : TObject)
begin
StatusBar1.Panels[1].Text := Application.Hint;
end;
 
接受答案了.
 
后退
顶部