Показать сообщение отдельно
  #4  
Старый 15.10.2018, 13:07
hesperusvz hesperusvz вне форума
Прохожий
 
Регистрация: 18.02.2018
Сообщения: 5
Версия Delphi: 10xe
Репутация: 10
По умолчанию

закинул на кнопку
Код:
Begin
 v:= ListView2.ItemIndex ;
 frmMain.Button4Click(nil);
end;

Такая же ошибка 

прокинул Через UDP
//клиент
procedure TfrmMain.ListView2ButtonClick(const Sender: TObject;
  const AItem: TListItem; const AObject: TListItemSimpleControl);

    var
v:integer;
s:string;

begin
   v:= ListView2.ItemIndex ;
    s:=IntToStr(v);

IdUDPClient1.Send(s);
End;



//Сервер
procedure TfrmMain.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);

  var
  s:string;
  v:Integer;
begin
   s:='';
    s:=bytestostring(AData);
    v:= StrToint(s);

   ListView2.Items.Delete( v );

end;

через раз выдает ошибку можно как-нибудь убить старую процедуру (Клиент) ?
Ответить с цитированием