TShellTreeView: auf Enter-Taste reagieren...

[juergen]

Hallo zusammen,

ich habe einiges probiert, aber mir will es nicht gelingen...
Ich möchte im ShellTreeView beim Betätigen der Entertaste etwas auslösen.
Den ShellTreeView erzeuge ich zur Laufzeit auf einem Panel.
Nur wie kann ich sowas wie ein OnKeyDown implementieren?

So habe ich ShellTreeView eingebunden:

Delphi-Quellcode:

...
   private
      { Private-Deklarationen }
      My_ShellTreeViewData: TShellTreeView;

...
procedure TForm1.FormCreate(Sender: TObject);
begin
   My_ShellTreeViewData := TShellTreeView.Create(Self);
   with My_ShellTreeViewData do
   begin
      Parent := panelShellTreeViewData;
      Align := alClient
   end;
end;

procedure TForm1.?????
begin
   if (Key = $0D) then   //oder VK_Return
begin
      ShowMessage('Enter-Taste erfolgreich');
end;

Vielen Dank schon mal vorab!