TShellTreeView: auf Enter-Taste reagieren...

[J3rk]

Delphi-Quellcode:

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

      procedure ShellKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);  // <------------------


...
procedure TForm1.FormCreate(Sender: TObject);
begin
   My_ShellTreeViewData := TShellTreeView.Create(Self);

   My_shellTreeviewdata.OnKeyDown := ShellKeyDown;   // <------------------

   with My_ShellTreeViewData do
   begin
      Parent := panelShellTreeViewData;
      Align := alClient
   end;
end;

procedure TForm1.ShellKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
begin
   if (Key = $0D) then ...

Ich hoffe das hilft dir.