VirtualTreeView et KeyPress ?

Pas top mais ca marche
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
procedure TChild.vtLeftKeyAction(Sender: TBaseVirtualTree;
  var CharCode: Word; var Shift: TShiftState; var DoDefault: Boolean);
var
  Node: PVirtualNode;
  Data: TLeftClass;
begin
  Node:=Sender.GetFirstSelected;
  if Assigned(Node) then
  Begin
    Data:=GetPointerFromTree(Sender, Node);
    if Data.Name[1]=Chr(CharCode) then
    Begin
      Node:=Sender.GetNext(Node);
      Sender.ClearSelection;
    End
    else
    Begin
      Sender.ClearSelection;
      Node := Sender.GetFirst;
    End;
  End
  Else
  Begin
      Sender.ClearSelection;
      Node := Sender.GetFirst;
  End;
 
  While Assigned(Node) do
  begin
    Data:=GetPointerFromTree(Sender, Node);
    if Data.Name[1]=Chr(CharCode) then
    Begin
      Sender.Selected[Node]:=True;
      Sender.FocusedNode:=Node;      
      Break;
    End;
    Node:=Sender.GetNext(Node);
  end;
end;