Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > как в StatusBare отображать подсказки из MainMenu

Автор: digitech 30.9.2008, 13:56

В каждом пункте MainMenu установлен такст подсказок Hint. Как можно сделать так, чтобы при наведении на определённый пункт меню отображалась его подсказка в строке StatusBar'a? Ну вообще, сколько сегодня я просмотрел кодов про ток как отображать hint любова объекта в statusbar'e при наведении на него мышью - я так и не разобрался.
Где-то показано, что вычисляются координаты мыши на каком же объекте она находится, где то показано, что в hint надо писать с вертикальной разделительной чертой |. Ну вобщем что я не пробовал - ничего так и не получилось.

Автор: aktuba 30.9.2008, 15:00

Примерно так:

Код


procedure AppHint(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := Application.Hint;
end;
...
procedure Create(Sender: TObject);
begin
...
  Application.OnHint := AppHint;
...
end;

Автор: digitech 1.10.2008, 16:19

Да, и ещё при создании формы надо Form1.ShowHint := true; сделать.
Я смотрел один код, там процедура AppHint почему то описана в разделе public , для чего это?
А так всё сделал, спасибо.

Автор: morpheyushka 1.10.2008, 17:30

Цитата(digitech @ 1.10.2008, 16:19

)

Я смотрел один код, там процедура AppHint почему то описана в разделе public , для чего это?

Это на тот случай, что бы ты мог использовать её в других модулях твоего проекта. Если это не требуется - процедура/функция описывается в разделе privat...в принципе по названиям можно догадаться