TTreeView

Code:

uses CommCtrl;

...

procedure SetNodeState(node :TTreeNode; Flags: Integer);

var

tvi: TTVItem;

begin

FillChar(tvi, Sizeof(tvi), 0);

tvi.hItem := node.ItemID;

tvi.mask := TVIF_STATE;

tvi.stateMask := TVIS_BOLD or TVIS_CUT;

tvi.state := Flags;

TreeView_SetItem(node.Handle, tvi);

end;

//И вызываем:

SetNodeState(TreeView1.Selected, TVIS_BOLD); // Текст жиpным

SetNodeState(TreeView1.Selected, TVIS_CUT); // Иконкy бледной (Ctrl+X)

SetNodeState(TreeView1.Selected, TVIS_BOLD or TVIS_CUT); // Текст жиpным

SetNodeState(TreeView1.Selected, 0); // Ни того, ни дpyгого