Текущий архив: 2006.09.24;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.029 c
