TGridpanel - Neuer Eintrag in der 1. Reihe?

[dust258]

Hallo Leute,
ich programmiere im Moment einen Chat. Dabei werden die verschiedenen Nachrichten (TFrame) untereinander in einem GridPanel dargestellt. Das funktioniert auch schon sehr gut, nur habe ich ein Problem wenn ich ältere Nachrichtet oben anfügen möchte (dynamisches nachladen).

Egal was ich mache, die neuen Einträge werden immer in der letzten Reihe eingefügt. Außerdem scheint es das ich Reihen nur austauschen kann. Ich muss also den neuen Eintrag mit jedem Eintag aus dem Gridpanel tauschen um ihn an die erste Stelle zu bekommen. Das dauert allerdings bei vielen Nachrichten zu Lange...

Delphi-Quellcode:

procedure SortLastControlOfGridPanel(inGridPanel: TGridPanel);
var
  lICurrentRow : Integer;
begin
  lICurrentRow := inGridPanel.ControlCount - 1;
  while (lICurrentRow > 0) and (CompareStr(inGridPanel.ControlCollection.Controls[0, lICurrentRow].Name, inGridPanel.ControlCollection.Controls[0, lICurrentRow-1].Name) < 0) do
  begin
    inGridPanel.ControlCollection.ControlItems[0, lICurrentRow].Row := inGridPanel.ControlCollection.ControlItems[0, lICurrentRow-1].Row;
    lICurrentRow := inGridPanel.ControlCollection.ControlItems[0, lICurrentRow-1].Row;
  end;
end;

Im Moment füge ich die neuen Nachrichten so ein:

Delphi-Quellcode:

    lFrameNotizVorschau := TFrameNotizVorschau.Create(nil);
    lFrameNotizVorschau.BedienerZiel := inSBedienerZiel;
    //GridPanelVorschau.ControlCollection.AddControl(lFrameNotizVorschau, 0, 0); // friert Anwendung ein
    lFrameNotizVorschau.Parent := GridPanelVorschau;
    //GridPanelVorschau.ControlCollection.AddControl(lFrameNotizVorschau, 0, 0); // Kein Effekt
    lFrameNotizVorschau.Name := 'NotizVorschau_' + LCSFormatDateTime('yyyymmdd', inNotiz.Datum) + '_' + LCSFormatDateTime('hhmmss', inNotiz.Zeit);
    SortLastControlOfGridPanel(GridPanelVorschau); //Zu langsam da alle Einträge im Gridpanel verschoben werden müssen

Kennt Jemand eine Möglichkeit Einträge in der 1. Reihe einzufügen?