TShellTreeView: auf Enter-Taste reagieren...

[Gehstock]

Hab grad mal mit D2006 getestet da läuft J3rk´s Code

Delphi-Quellcode:

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ShellCtrls, ExtCtrls;

type
  TForm7 = class(TForm)
    panelShellTreeViewData: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure ShellTreeViewKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form7: TForm7;
  My_ShellTreeViewData: TShellTreeView;

implementation

{$R *.dfm}

procedure TForm7.FormCreate(Sender: TObject);
begin
   My_ShellTreeViewData := TShellTreeView.Create(Self);
   My_shellTreeviewdata.OnKeyDown := ShellTreeViewKeyDown;

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

procedure TForm7.ShellTreeViewKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = $0D) then ShowMessage('Enter-Taste erfolgreich');
end;

end.