TShellTreeView: auf Enter-Taste reagieren...

[nahpets]

Hallo,

Delphi-Quellcode:

procedure TForm1.ShellTreeView1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  ShowMessage('ShellTreeView1KeyDown' + #13 + IntToStr(Key));
end;

procedure TForm1.ShellTreeView1KeyPress(Sender: TObject; var Key: Char);
begin
  ShowMessage('ShellTreeView1KeyPress' + #13 + '>' + Key + '<');
end;

procedure TForm1.ShellTreeView1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  ShowMessage('ShellTreeView1KeyUp' + #13 + IntToStr(Key));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  My_ShellTreeViewData := TShellTreeView.Create(Self);
  with My_ShellTreeViewData do
  begin
    Parent := panelShellTreeViewData;
    Align := alClient;
  end;
  My_ShellTreeViewData.OnKeyDown  := ShellTreeView1KeyDown;
  My_ShellTreeViewData.OnKeyPress := ShellTreeView1KeyPress;
  My_ShellTreeViewData.OnKeyUp    := ShellTreeView1KeyUp;
end;

Das funktioniert bei mir, allerdings wird ShellTreeView1KeyUp nie angezeigt.
Delphi 7 Prof. unter XP-Prof.