1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal
Sujet Précédent Sujet Suivant

Treeview Selection avec Buttons !

Delphiturbo Messages postés 68 Date d'inscription mercredi 31 octobre 2007 Statut Membre Dernière intervention 29 juillet 2008 - 1 mai 2008 à 16:42
Delphiturbo Messages postés 68 Date d'inscription mercredi 31 octobre 2007 Statut Membre Dernière intervention 29 juillet 2008 - 1 mai 2008 à 16:53
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

Réponse 1 / 1
Delphiturbo Messages postés 68 Date d'inscription mercredi 31 octobre 2007 Statut Membre Dernière intervention 29 juillet 2008
1 mai 2008 à 16:53
ICI le Photo



coment puis je ajouter un Image ici de mon Site ?
0
Rejoignez-nous