Mit diesem Code habe ich herausgefunden, dass bei der Selektion eines Items (wenn vorher ein anderes Item selektiert war), dieses Ereignis OnChanging
3 mal aufgerufen wird:
Delphi-Quellcode:
procedure TForm1.ListViewChanging(Sender: TObject; Item: TListItem;
Change: TItemChange; var AllowChange: Boolean);
begin
if (Change = ctState) then
Windows.Beep(Random(100) + 150, 300);
end;
Aber ich habe noch nicht herausgefunden, wie man verhindern kann, dass ListView.ItemIndex auf -1 gesetzt wird.