1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| //procedure permettant de lire l'etat de ton element
procedure TForm1.LectureEtat(Sender: TObject);
var i:integer;
begin
for i:=0 to TreeView1.Items.Count-1 do
begin
if TreeView1.Items[i].StateIndex=2 then
begin
// le traitement a faire
end;
end;
end;
//-----------------------------------------------------------------------
// commutation de l'etat de l'element
procedure TForm1.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if htOnStateIcon in TreeView1.GetHitTestInfoAt(X, Y) then
begin
if TreeView1.GetNodeAt(X, Y).stateIndex=2 then
TreeView1.GetNodeAt(X, Y).stateIndex:=1
else
TreeView1.GetNodeAt(X, Y).stateIndex:=2;
end;
end; |
Partager