Hallo ihr beiden,
hier noch was zum Kennenlernen:
Delphi-Quellcode:
procedure TDemoForm.lvTermineColumnClick(Sender: TObject;
Column: TListColumn);
var
sCaption: string;
index: integer;
begin
index := lvTermine.ItemIndex;
if index > -1 then
sCaption := lvTermine.ItemFocused.Caption;
lvTermine.CustomSort(nil, Column.Index);
if index > -1 then
with lvTermine do
ItemFocused := FindCaption(0, sCaption, false, true, false);
end;
Die Sortierung geschieht hier im Ereignis OnCompare() der nicht virtuellen ListView.
Weihnachtsgrüße vom marabu