Zitat:
ich vermute mal, dass der ShellListView vom CustomListView abgeleitet ist, und über eine Methode CustomSort verfügt.
So düfte es sein. Hab den Code eingebaut. Allerdings funktioniert es nicht. Was ist falsch daran???
Code:
function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
Result := -CompareText(Item1.Caption,Item2.Caption);
end;
procedure TFormShredExplor.ShellListView1ColumnClick(Sender: TObject;
Column: TListColumn);
begin
ShellListView1.CustomSort(@CustomSortProc, 0);
ShellListView1.Refresh;
end;
Gruß
Thomas
