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;
http://www.torry.net/vcl/bars/statusbars/sbpro.zip
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;