Показываем всплывающие подсказки в различных панелях StatusBar

Code:

{ Добавьте CommCtrl в uses. }

{ в интерфейсе формы для статусбара }

private

   procedure AppShowHint(var HintStr: string; var CanShow: boolean;

     var HintInfo: THintInfo);

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.OnShowHint := AppShowHint;

end;

procedure TForm1.AppShowHint(var HintStr: string; var CanShow: boolean;

var HintInfo: THintInfo);

const

PanelHints: array [0..6] of string =

   ('Cursor position', 'Ascii char', 'Bookmarks', 'Caps lock',

   'Insert/Overwrite', 'File size', 'File name');

var

x: integer;

R: TRect;

begin

if HintInfo.HintControl = StatusBar1 then

begin

   for x := 0 to StatusBar1.Panels.Count-1 do

   begin

     SendMessage(StatusBar1.Handle, SB_GETRECT, x, Longint(@R));

     if PtInRect(R, HintInfo.CursorPos) then

     begin

       HintStr := PanelHints[x];

       InflateRect(R, 3, 3);

       { Устанавливаем CursorRect говоря системе проверить новые

       строки с подсказками, когда курсор покинет этот прямоугольник. }

       HintInfo.CursorRect := R;

       break;

     end;

   end;

end;

end;