| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как изменить координаты появления Hint [D5, WinXP]
AlexLine © (2004-12-22 01:25:00)Часть Hint появляется за пределами экрана, т.к. кнопка находится у правой границы экрана. Почему-то не нашел, как изменить координаты всплывающей подсказки.
Заранее благодарен за ваши советы
PZ (2004-12-22 18:49:00) [1]Вот кусочек из моей процедуры. Сдигает 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;
KilkennyCat (2004-12-22 05:20:00) [2]Вероятно, проще всего создать свой THintWindow, у него есть все необходимые свойства.
| |
