TRaveSection.Child[i] - Array sortieren

[Nalincah]

Hi. Wie kann ich die Eigenschaft "Child" einer TRaveSection sortieren. "Child" entspricht in etwa dem "Panel1.Controls[i]". Da kann ich mit Hilfe von "RemoveControl" und "InsertControl" den Array umsortieren. So das es am Ende nicht nach der Reinfolge des Erstellen der Controls ist, sondern z.b. nach der Top sortiert ist.

Delphi-Quellcode:

Child[0].Top = 10;
Child[1].Top = 20;
...

Wie die Procedure aussehen muss, weiß ich, aber leider gibt es bei der TRaveSection kein Remove- oder InsertControl :gruebel:

Soweit hab ichs schon:

Delphi-Quellcode:

//------------------------------------------------------------------------------
// Sortiert Child eines Panels erst nach Top und dann nach Left
procedure TSKRavePanelVerschieben.SortArray(RaveSection:TRaveSection);
var
  i,j,k : Integer;
  Kleinster : TRaveControl;
  TempArray : array of TRaveControl;
begin
  // Durchlaufe die Schleife bis zum letzten nicht sortierem Element
  for i := RaveSection.ChildCount - 1 downto 0 do
  begin
    // Definiere den ersten Control als den mit dem kleinsten Top
    Kleinster := TRaveControl(RaveSection.Child[0]);
    for j := 0 to i do
    begin
      // Suche Child mit einem kleinerem Top als dem aktuellen (Kleinster)
      if (TRaveControl(RaveSection.Child[j]).Top < TRaveControl(Kleinster).Top) or
         ((TRaveControl(RaveSection.Child[j]).Top = TRaveControl(Kleinster).Top) and
          (TRaveControl(RaveSection.Child[j]).Left < TRaveControl(Kleinster).Left)) then
        // und setze diesen als kleinsten Control
        Kleinster := TRaveControl(RaveSection.Child[j]);
    end;
    // Lösche den Control mit dem kleinsten Control       //  -|
//    RaveSection.RemoveComponent(TComponent(Kleinster)); //   |
    // Und füge Ihn ans Ende dran                         //   |- Hier haperts
//    RaveSection.InsertComponent(TComponent(Kleinster)); //  -|
  end;
end;