Строка состояния, подсказки

[Квио]

Имеется программа для вывода данных из файла в StringGrid, Memo, ComboBox, ListBox. Нужно сделать, чтобы при наведении соответствующей элемент в строку состояния писалось её название.

[Arigato]

Кидаем на форму компонент TStatusBar.
У него есть свойство SimpleText. Туда можно присваивать текст. Вот только странный косяк, система забывает его перерисовывать.

[Квио]

Это понятно, но вот у не которых компонентов нет свойства OnMouseEnter. Походу оно только у меток, а так делаю:

procedure TForm1.Label2MouseEnter(Sender: TObject);
begin
StatusBar1.SimpleText:='текст';
end;

Перерисовку с помощью:

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
StatusBar1.SimpleText:='';
end;

В метки прописываю: OnMouseEnter = Label6MouseEnter

Есть варианты?

[Arigato]

А какие ещё варианты нужны?

[Квио]

Компилятор орёт, когда я прописываю эвент OnMouseEnter в окна Memo, Listbox и тд. т.к они не поддерживают этого свойства. Или же есть альтернатива этому?

      object StringGrid1: TMenuItem
        AutoHotkeys = maAutomatic
        Caption = 'В &StringGrid'
        Hint = 'Данные из файла будут выведены в таблицу StringGrid'
        ShortCut = 16452
        OnClick = StringGrid3Click
        OnMouseEnter = Label6MouseEnter

не катит.

[VIR1435]

есть такой вариант

у компонента например label в свойстве MouseMove

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
StatusBar1.SimpleText:='текст';
end;

в свойстве MouseMove у самой формы

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
StatusBar1.SimpleText:='';
end;

[mosq]

думается мне, что надо использовать не у каждого компонента OnMouseEnter, а в целом у Form1 - OnMouseMove, в котором уже сделать определение названия компонента и вывода соответствующей подсказки в статус.
Кода меньше, очищать не надо постоянно, все в одном месте будет, редактирвоать удобней.
Как посмотреть, какой компонент под курсором сейчас - не знаю даже Предлагаю только метод, как бы я сделал.

[Arigato]

Может есть какой встроенный механизм, не знаю. Но можно перебирать все компоненты и анализировать, учитывая X, Y - координаты мыши на форме, Left, Top - позиция компонента на форме (левый верхний угол), Width, Height - ширина и высота компонента.