Treeview - Click

[stefan_hu]

Hallo.

Erstmal vorweg. Ich fnge gerade an Delphi zu lernen.

Ich möchte wenn ich auf eine Node im reeview klicke das ein Ereignis ausgeführt wird.
Habe folgendes probiert ohne Ergebnis:
unter type "procedure Treeview1Click(Sender: TObject);" hinzugefügt und unten die procedur. Leider funktioniert das nicht.

Was mache ich falsch?
Danke im voraus

Stefan

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Treeview1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 procedure TForm1.TreeView1Click(Sender: TObject);
begin
  // Wurde ein Eintrag angeklickt?
  if TreeView1.Selected <> nil then
  begin
    // Dann dessen Text ausgeben
    ShowMessage(TreeView1.Selected.Text);
  end;
end;