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

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

Hint для каждого узла TTreeView - миф или реальность?

Ega23 ©   (2006-08-09 12:52:00) 

Как можно реализовать сабж? Поделитесь мыслями

---

Ega23   (2006-08-09 17:24:00) [1]

> Приходилось еще Application.HintMouseMessage принудительно
> вызывать.
>


Всё нормально, я уже сделал. Ничё так, гламурненько получилось. Только TCustomTreeView.ShowHint надо в True выставить.

---

evvcom   (2006-08-09 16:57:00) [2]

Я такое с TreeView не делал, а с dxDBTreeList (dxDBGrid) одного Application.CancelHint; мне было недостаточно. Приходилось еще Application.HintMouseMessage принудительно вызывать.

---

Ega23   (2006-08-09 13:49:00) [3]

> MBo ©   (09.08.06 13:08) [2]
>
> из борландовских newsgroups:


Хм... Очень интересно. Большое спасибо!

---

MBo   (2006-08-09 13:08:00) [4]

из борландовских newsgroups:

procedure TForm6.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
var
 hintText: string;
 node: TTreeNode;
begin
 Node := TreeView1.GetNodeAt(X, Y);
 if Node <> nil then begin
   hintText := Node.Text; {or whatever you want to extract from it}
   if TreeView1.hint <> hintText then begin
     TreeView1.hint := hintText;
     Application.CancelHint;
   end;
 end;
end;


---

evvcom   (2006-08-09 13:02:00) [5]

А в чем сложности? Где хранить или как показывать? Или что показывать? :)

---

Наверх