Скачать: CL | DM;

Как изменить координаты появления 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c