Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Hints [D7, WinXP]


AdmeraL ©   (2006-03-11 22:08:00) 

У многих компонентов есть свойство Hints(на пример у Tpanel). У меня с ним возникла проблема:В нем я показываю координаты курсора по сообщению WM_MouseMove, однако подсказка эта всплывает только после того как я каждый раз вывожу и ввожу  курсор в пределы моего компонента, а мне надо чтобы содержимое подсказки менялось вместе с координатами курсора. Как мне это сделать?


Anatoly Podgoretsky   (2006-03-19 19:53:00) [1]

А где же оно тогда показывается?


Admeral   (2006-03-19 18:59:00) [2]

Всё бы неплохо, только моя панель - это компонент более низкого уровня чем Tform, следовательно она не знает что такое Application. Есть ли другие варианты?


Кашперук Иван   (2006-03-12 05:31:00) [3]

Удалено модератором
Примечание: Создай свою ветку


API   (2006-03-12 04:27:00) [4]

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 Hint := 'X = ' + IntToStr(X) + '; Y = ' + IntToStr(Y);
 Application.ActivateHint(ClientToScreen(Point(X, Y)));
end;


P.S. Не забыть установить для формы ShowHint := true;


Джо   (2006-03-11 22:32:00) [5]

> Как мне это сделать?

Сделать свою форму наподобие hint-window. В обработчике таймера определять координаты курсора и выводить их в этом окне.


Наверх

Титульная страница Поиск, карта сайта Написать письмо