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

Hints   Найти похожие ветки 

← →
AdmeraL ©   (2006-03-11 22:08) [0]

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

---

← →
Джо ©   (2006-03-11 22:32) [1]

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

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

---

← →
API ©   (2006-03-12 04:27) [2]

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-12 05:31) [3]

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

---

← →
Admeral ©   (2006-03-19 18:59) [4]

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

---

← →
Anatoly Podgoretsky ©   (2006-03-19 19:53) [5]

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

---

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

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



Память: 0.46 MB
Время: 0.027 c