W wjhyyh Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-20 #1 可以把怎样在statusbar加入图标的详细步骤写一下吗？
C cwmdelpher Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-20 #2 DFSSTATUSBAR.ZIP TDFSStatusBar 是加强版 TStatusBar 构件，能够在其内放置其他构件，提供显示键盘上特殊键 ( CAPS Lock、NUM Lock、SCROLL Lock) 的状态，并提供进度显示进度及目前时间日期等多项功能 ( 1.0 版，附源码 )，作者 : Brad Stowers。 FRSTATUS.ZIP TFriendlyStatusBar 是一个改良版的 TStatusBar，能够在其内放置其他构件 ( 1.0 版，附源码 ) ，作者 :Ivan Azic。 用这两个， 把你的IMAGE 图象控件放到STATUSBAR上
DFSSTATUSBAR.ZIP TDFSStatusBar 是加强版 TStatusBar 构件，能够在其内放置其他构件，提供显示键盘上特殊键 ( CAPS Lock、NUM Lock、SCROLL Lock) 的状态，并提供进度显示进度及目前时间日期等多项功能 ( 1.0 版，附源码 )，作者 : Brad Stowers。 FRSTATUS.ZIP TFriendlyStatusBar 是一个改良版的 TStatusBar，能够在其内放置其他构件 ( 1.0 版，附源码 ) ，作者 :Ivan Azic。 用这两个， 把你的IMAGE 图象控件放到STATUSBAR上
C cwmdelpher Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-20 #3 想自己做也很简单 继承一个TStatusBar,在create中加入： ControlStyle:=ControlStyle+ [csAcceptsControls]; 然后就可以向里面添加任何VCL,比如TProgressBar,TImage等
想自己做也很简单 继承一个TStatusBar,在create中加入： ControlStyle:=ControlStyle+ [csAcceptsControls]; 然后就可以向里面添加任何VCL,比如TProgressBar,TImage等
C cwmdelpher Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-20 #4 比较简单的方法. procedure TForm1.Button1Click(Sender: TObject); var Map:TImage; begin Map:=TImage.Create(Self) ; Map.Picture.LoadFromFile('c:/Chem16.bmp'); Map.parent:=StatusBar1; end
比较简单的方法. procedure TForm1.Button1Click(Sender: TObject); var Map:TImage; begin Map:=TImage.Create(Self) ; Map.Picture.LoadFromFile('c:/Chem16.bmp'); Map.parent:=StatusBar1; end
