请问如何实现statusbar的每个panel有不同hint并可以显示!谢谢了

Question

本人试过很多方法均不行,55555555555555
大家来指点指点小弟

Answer 1

呵呵。我有一够笨的办法。你在每个上面放个透明的控件。呵呵反正看不见就把它的hint做为如何？

Answer 2

TStatusBarPro 控件，可以支持：
http://www.torry.net/vcl/bars/statusbars/sbpro.zip

Answer 3

procedure TForm1.StatusBar1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
    if (x>statusbar1.Left) and (x<statusbar1.Panels[0].Width) then
  statusbar1.Hint:='cccc';
  if (x>statusbar1.Panels[0].Width ) and (x<statusbar1.Panels[0].Width+statusbar1.Panels[1].Width  ) then
  statusbar1.Hint:='ddd';end;