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...

zusammenfalten · markieren

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:

markieren

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?

TGridpanel - Neuer Eintrag in der 1. Reihe?

TGridpanel - Neuer Eintrag in der 1. Reihe?

Forumregeln