Текущий архив: 2005.01.09;
Скачать: 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 вся ветка
Текущий архив: 2005.01.09;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.047 c
