Einzelnen Beitrag anzeigen

Delphiturbo
(Gast)

n/a Beiträge
 
#1

Click auf Treeview simulieren (Fehlermeldung)

  Alt 1. Mai 2008, 18:00
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;
Miniaturansicht angehängter Grafiken
treeview-click-simulieren_118.jpg  
  Mit Zitat antworten Zitat