Delphi dicas

Hint para cada item de um treeview

Public

lastHintNode : TTreeNode;



{

No everton MouseMove do TreeView coloque o código abaixo:

}

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

var

tree: TTreeView;

hoverNode: TTreeNode;

hitTest : THitTests;

begin

        if (Sender is TTreeView) then

        tree := TTreeView(Sender)

        else

        Exit;



        hoverNode := tree.GetNodeAt(X, Y) ;

        hitTest := tree.GetHitTestInfoAt(X, Y) ;



        if (lastHintNode <> hoverNode) then

        begin

                Application.CancelHint;



                if (hitTest <= [htOnItem, htOnIcon, htOnLabel, htOnStateIcon]) then

                begin

                        lastHintNode := hoverNode;

                        tree.Hint := NodeHint(hoverNode);

                end;

        end;

end;



{

Função que apresenta o Texto do Hint, caso você queira colocar algo a mais fique a vontade, se quiser até colocar mais parêmetros para validar o que vai escrito fica bem legal.

}

function TForm1.NodeHint(tn: TTreeNode): string;

begin

        Result := 'O Texto é: ' + tn.Text;

end;



{

Obs.: Lembre de colocar a propriedade ShowHint do TreeView com True.

}

por : Fábio Romão De Oliveira