Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.11.23;
Скачать: CL | DM;

Вниз

THintWindow: подсказка, движущаяся за курсором.   Найти похожие ветки 

 
Дмитрий   (2008-02-06 07:02) [0]

Добрый день. Необходимо сделать подсказку, которая бы двигалась за курсором над полем графиков и выводила данные в текущей точке.
В правильном ли я направлении мыслю ? Сделать это при помощи THintWindow. Но вопрос, как его прицепить к TChart покрасивее? Заранее благодарю за любую помощь.


 
ANB   (2008-02-06 10:05) [1]

OnMouseMove вроде как поможет :)


 
New   (2008-02-06 10:44) [2]


> Дмитрий   (06.02.08 07:02)
> Сделать это при помощи THintWindow


Можно с помощью TOOLTIPS_CLASS

uses CommCtrl;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Timer1.Interval:= 10;
 if TTHWND <> 0 then
   DestroyWindow(TTHWND);
 TTHWND:= CreateWindow(TOOLTIPS_CLASS, "",
   $30,
   Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),
   Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),
   0, 0, HInstance,
   nil);
 TTI.cbSize:= SizeOf(TTI);
 TTI.uFlags:= TTF_TRACK + TTF_TRANSPARENT;
 TTI.Rect.Left:= 0;
 TTI.Rect.Top:= 0;
 TTI.Rect.Bottom:= 0;
 TTI.Rect.Right:= 0;
 SetWindowPos(TTHWND, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE);
 TTI.lpszText:= PChar("Добрый день., В правильном ли я направлении мыслю ?");
 SendMessage(TTHWND, TTM_ADDTOOL, 0, Integer(@TTI));
 SendMessage(TTHWND, TTM_TRACKPOSITION, 0, MAKELPARAM(Mouse.CursorPos.X, Mouse.CursorPos.Y));;
 SendMessage(TTHWND, TTM_TRACKACTIVATE, Integer(LongBool(True)), Integer(@TTI));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 SendMessage(TTHWND, TTM_TRACKPOSITION, 0, MAKELPARAM(Mouse.CursorPos.X, Mouse.CursorPos.Y));
end;


 
New   (2008-02-06 20:45) [3]

var
 TTI: TToolInfo;
 TTHWND: THandle;



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

Текущий архив: 2008.11.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
15-1222450529
No_Dead(work)
2008-09-26 21:35
2008.11.23
зачем нужен *.ion?


8-1187970529
master_asasin
2007-08-24 19:48
2008.11.23
gdi+


2-1223617781
F@T@L_Err0r
2008-10-10 09:49
2008.11.23
Запуск приложения


15-1222021140
GanibalLector
2008-09-21 22:19
2008.11.23
Будующее фотографии


2-1223895983
jonin
2008-10-13 15:06
2008.11.23
PageControl1