Подсказки кнопок на панели

[CrazyProgramer]

Как сделать нечто панели на главной форме, что-бы на неё выводились
хинты контролов, над которыми сейчас курсор? Примерно есть главная форма, на ней Statusbar и когда я перемешаю курсор мыши (по пунктам меня, кнопкам и т.д...) что-бы на неё выводились ихнии подсказки

[SERG1980]

Можно с помощью компонента ApplicationEvents со страницы Additional
в событии OnHint этого компонента пишем

procedure TForm1.ApplicationEvents1Hint(Sender: TObject);
begin
form1.StatusBar1.SimpleText:=application.Hint;
end;

[Stilet]

CrazyProgramer

Ну так в обработчиках наведения мышей на контролы прописывай их хинт в caption панели или ячеек статусБара

[Alter]

private
   procedure MyHint(Sender: TObject);
 end;

    implementation

  {....}

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Application.OnHint := MyHint;
   ShowHint := True;
 end;

 procedure TForm1.MyHint(Sender: TObject);
 begin
   StatusBar1.SimpleText := Application.Hint;
 end;

------------------------------------------

[Банзай]

у Application есть событие OnHint, от него можно стартовать.


а (sender as TControl).Hint и application.hint здесь - одно и тоже?

[CrazyProgramer]

Zа "OnHint" всем спасибо, незнал.
Oб обработчиках наведения мышей на контролы, скажу что до такого могбы и сам додуматься =)))))) но это даже не вариант в этом случае, например у меню итем я невижу что то связанно с событием мыши, да и громоздко это получилось бы.
Насчет OnHint еще, способ тоже помойму не пригодный, т.к если мне надо будет брать, допустим, текст из свойства Caption, а не хинт, плюс при этом еще сравнивать таги на пример! Такчто вопрос в силе уважаемые.

[Ring0Sn]

получить хэндл контрола из под курсора, немного пооколдовать над его rect...

зы но не думаю что это ХОРОШИЙ вариант, я бы хук замутил и разжился как угодно, выводя что угодно и куда удобно

[Alter]

Сообщение от Банзай

у Application есть событие OnHint, от него можно стартовать.


а (Sender as TControl).Hint и application.hint здесь - одно и тоже?

(Sender as TControl).Hint <= это Application, если лежит в MyHint;

Насчет OnHint еще, способ тоже помойму не пригодный, т.к если мне надо будет брать, допустим, текст из свойства Caption,
а не хинт, плюс при этом еще сравнивать таги на пример! Такчто вопрос в силе уважаемые.

Это уже другой вопрос, новая тема. А про Подсказки вам объяснили.

[CrazyProgramer]

Это уже другой вопрос, новая тема. А про Подсказки вам объяснили.

Я так не считаю, тема в "общем виде" имеет смылс , а не только отдельно хинт! Если я создам тему как вывести хинт и caption контрола на панель и посчитает её чем то координальным отличающейся от этой, может первым кинуть в меня камнем!

[Банзай]

можно попробовать такой вариант: события контролов занести в компоненту ActionList как события onExecute объектов Action, у них есть также событие OnHint что вызывается когда курсор остановился над контролом за которым этот Action закреплён. правда похоже на то что в этом случае придется для каждого контрола отдельный онхинт писать, так как в этот онхинт сендер не передается...

да и ещё, на счет аппликатион.онхинт, здесь для удобства другая компонента есть - ApplicationEvents содержащая все события Application

з.ы. бгы, забавно у этого компонента событие есть onShowHint в неё передается переменная HintInfo:THintInfo с полем HintControl - это случайно не то что нужно?