Listview sortieren über Button?

[Waaaghboss]

Hi alcaeus,

Mit der möchte ich die Procedur aufrufen, da ich die ShowColumnHeaders später auf False setzen möchte, deswegen brauche ich ein Objekt z.B. Das Label "Anrede" um trotzdem sortieren zu können. Ich habe auf dem Gebiet wenig Ahnung, deswegen ist es möglich, das ich etwas vergessen habe oder so.

Delphi-Quellcode:

procedure TFMain.AnredeClick(Sender: TObject);  <-- Anrede ist ein Label
begin
  ListColumnClick(Sender, List.Columns[0]);
end;

Wenn ich es so aufrufe kommt in der Zeile ein grüner Pfeil und der Text ist blau unterlegt.

Delphi-Quellcode:

procedure TFMain.ListColumnClick(Sender: TObject; Column: TListColumn);
begin
  ColumnToSort := Column.Index;
  if ColumnToSort = LastSorted then
    SortDir := 1 - SortDir
  else
    SortDir := 0;
  LastSorted := ColumnToSort;
  (Sender as TCustomListView).AlphaSort;  <--  Hier kommt der Fehler
end;

MfG Waaaghboss