Click auf Treeview simulieren (Fehlermeldung)

[Delphiturbo]

Hallo

ich kann ein Klick auf Treeview simulieren :

Delphi-Quellcode:

Treeview1.Selected := Treeview1.Selected.Getnext;
TreeView1.OnClick(Sender);

Ohne Fehlermeldung
Aber wenn ich den treeview OnClick-Event auch einen Code zuweise
dann Erscheint eine Fehlermeldung, wenn ich ein Click simuliere

Delphi-Quellcode:

procedure TForm1.TreeView1Click(Sender: TObject);
var
     data: PMyData;
begin
data := (Sender as TTreeView).Selected.Data; //hier kommt die Fehlermeldung
// aber nur wenn ich ein Klick simuliere und nicht wenn ich drauf klick.
if data <> Nil then
WebBrowser1.Navigate(data.url);


end;

[Fussball-Robby]

Dann mach

Delphi-Quellcode:

TreeView1.OnClick(TreeView1);

Ansonsten spuckt (Sender as TTreeView) nen fehler aus, weil der Sender kein TreeView ist.

Mfg

[Delphiturbo]

Tatsächlich :thumb:
Danke!