TTreeView

[kit]

Как включить поиск по первой букве или надо делать самому?

[serbod]

Лучше самому сделать, на виртуальном дереве (OwnerData или TVirtualTreeView). Это немного сложнее, но намного перспективнее, больше возможностей и никаких тормозов.

[kit]

сделал так:
procedure TKpForm.TreeViewUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
var
TreeNode: TTreeNode;
begin
TreeNode := TreeView.Items.GetFirstNode;
while Assigned(TreeNode) do
if UTF8LowerCase(UTF8LeftStr(TreeNode.Text, 1)) = UTF8LowerCase(UTF8Key) then begin
TreeView.Select(TreeNode);
Break
end else
TreeNode := TreeNode.GetNext;
end;