Probier mal:
Delphi-Quellcode:
procedure TClientForm.ServerSocket1ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
var
Li : TListItem;
P : Pointer;
begin
integer(P) := socketdata.Socket.Handle;
Li:=listview1.finddata(0,P,true,false);
listview1.Selected := Li;
listview1.DeleteSelected;
end
Habs nicht getestet. Wenn Multiselektieren erlaubt muss natürlich alles vorher deselektiert werden.