Hi
ich kann die Markierung bewegen nach oben und nach unten aber erscheint immer Eine Fehler Meldung :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Button2.Enabled:=true;
if treeview1.Selected.AbsoluteIndex = Treeview1.Items.Count-2 then
begin
Button1.Enabled:=false;
TreeView1.SetFocus;
end;
If Assigned(Treeview1.selected) Then
begin
Treeview1.Selected := Treeview1.Selected.GetNext;
TreeView1.SetFocus;
TreeView1.OnClick(Sender); // Simulate a Click on the selected one
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Enabled:=true;
if treeview1.Selected.AbsoluteIndex = 1 then
begin
Button2.Enabled:=false;
TreeView1.SetFocus;
end;
If Assigned(Treeview1.selected) Then
begin
Treeview1.Selected := Treeview1.Selected.Getprev;
TreeView1.SetFocus;
//TreeView1.OnClick(Sender); // Simulate a Click on the selected one
end;
end;
Ich möchte damit die Markierung bewegen und ein Klick dazu auf die Markierung simulieren
Es funktioniert aber mit Fehler !