1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| function Ordonner(Item1, Item2: Pointer): Integer;
begin
{ Traitement pour ordonner la liste comme tu veux ici. }
end;
procedure TForm1.btn1Click(Sender: TObject);
var
vIndice: Integer;
vListeControles: TComponentList;
begin
vListeControles := TComponentList.Create(False);
try
for vIndice := 0 to ControlCount-1 do
vListeControles.Add(Controls[vIndice]);
vListeControles.Sort(Ordonner);
for vIndice := 0 to vListeControles.Count-1 do
{ Traitement des contrôles dans l'ordre que tu veux ici. }
finally
vListeControles.Free;
end;
end; |
Partager