Treeview Selection avec Buttons !

Signaler
Messages postés
68
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
29 juillet 2008
-
Messages postés
68
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
29 juillet 2008
-
Salut

svp, ou le problem dans mon Code ?

et voila mon Code:
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;

1 réponse

Messages postés
68
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
29 juillet 2008

ICI le Photo



coment puis je ajouter un Image ici de mon Site ?