Как изменить координаты появления Hint

← →
AlexLine (2004-12-22 01:25) [0]

Часть Hint появляется за пределами экрана, т.к. кнопка находится у правой границы экрана. Почему-то не нашел, как изменить координаты всплывающей подсказки.

Заранее благодарен за ваши советы

← →
KilkennyCat © (2004-12-22 05:20) [1]

Вероятно, проще всего создать свой THintWindow, у него есть все необходимые свойства.

← →
PZ (2004-12-22 18:49) [2]

Вот кусочек из моей процедуры. Сдигает Hint`ы для StaticText и кнопки вверх на 20 пикселей. Используется компонент ApplicationEvents.

procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;
var CanShow: Boolean; var HintInfo: THintInfo);
begin
With HintInfo do
If (HintControl = StaticText2) or // := "Всего страниц";
(HintControl = StaticText1) or // := "№ страницы";
(HintControl = StaticText3) or // := "% прочитанных страниц";
(HintControl = BegFileBut) or

.......

(HintControl = ExitBut) then
HintPos := HintControl.ClientToScreen (Point(0, -20));
end;

Как изменить координаты появления Hint Найти похожие ветки