Форум: "Основная";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Ega23 ©   (2006-08-09 12:52) [0]

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

---

← →
evvcom ©   (2006-08-09 13:02) [1]

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

---

← →
MBo ©   (2006-08-09 13:08) [2]

из борландовских 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;


---

← →
Ega23 ©   (2006-08-09 13:49) [3]

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


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

---

← →
evvcom ©   (2006-08-09 16:57) [4]

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

---

← →
Ega23 ©   (2006-08-09 17:24) [5]

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


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

---

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

Форум: "Основная";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.04 c