Suche Tabellen-VCL mit automatischer Sortierung

[blackdrake]

Hallo.

Vielen Dank für deine Hilfe. Das hatte ich übersehen.

Ich habe mal die neue Unit angehängt.

Sie enthält jetzt:
- Den zugreifbaren Loaded() für dynamische Einbindung (vielleicht nicht gerade die eleganteste Lösung?)
- 2 individuelle Sortierfunktionen
- Methode, den Sortierpfeil zu entfernen

Delphi-Quellcode:

// Extended
procedure TSortListView.Sort(ColumnIndex: integer);
begin
  ColumnClick(self, Columns[ColumnIndex]);
end;

// Extended
procedure TSortListView.Sort(ColumnIndex: integer; ASC: boolean);
begin
  if (LastSortIndex <> -1) and (LastSortIndex <> ColumnIndex) then
  begin
    Columns[LastSortIndex].ImageIndex := -1;
  end;
  LastSortIndex := ColumnIndex;
  LastSortAsc := not ASC;
  ColumnClick(self, Columns[ColumnIndex]);
end;

// Extended
procedure TSortListView.HideArrow;
begin
  if (LastSortIndex <> -1) then
  begin
    Columns[LastSortIndex].ImageIndex := -1;
  end;
end;

Gruß
blackdrake

// Edit: Fehler behoben
// Edit 2: Erweiterung