[cadil]

Подскажите, пожалуйста, где можно найти исходник всплывающей подсказки (Hint) для кнопки (BitBtn)? Или как примерно выглядит код процедуры: при наведении курсора на кнопку - всплывает подсказка? Спасибо!

[san-46]

класс THintWindow в модуле Controls.
А конкретно, зачем надо?

[Winny]

Ставишь у твоего BitBtn свойство ShowHint в True и пишешь нужную подсказку в свойстве Hint.

[cadil]

Сообщение от Winny

Ставишь у твоего BitBtn свойство ShowHint в True и пишешь нужную подсказку в свойстве Hint.

Спасибо!
А я мучаюсь, пытаясь запустить что-то похоже на

Код:

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Shape1.Hint:='Подсказка';
end;

Почему-то не получается. Хотя, все крутится.
Еще раз - благодарю.

[artzub]

Давайте продолжем эту беседу!!!
Значит так:
надо чтоб подсказка появлялась после выполнения какогото действия! как это седлать!?

[xchrom]

Воспользуйся компонентой от JEDI TJvBaloonHint, очень удобственно, рекомендую