Delphiturbo
Messages postés68Date d'inscriptionmercredi 31 octobre 2007StatutMembreDernière intervention29 juillet 2008
-
1 mai 2008 à 16:42
Delphiturbo
Messages postés68Date d'inscriptionmercredi 31 octobre 2007StatutMembreDernière intervention29 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