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

Сделал Вт так Работает

Код:
procedure TfrmMain.ListView2ButtonClick(const Sender: TObject;
  const AItem: TListItem; const AObject: TListItemSimpleControl);

    var
v:integer;
s:string;

begin
   v:= ListView2.ItemIndex ;
    s:=IntToStr(v);
Timer1.Enabled:=true;
Memo2.Text:= s;
exit;

end;

procedure TfrmMain.Timer1Timer(Sender: TObject);
Var
s:string;
v:Integer;

begin
  s:=Memo2.Text;
    v:= StrToint(s);
    if v>=0 then
   ListView2.Items.Delete( v );
  Timer1.Enabled:=False;
end;
Админ: Пользуемся тегами при оформлении кода!
Ответить с цитированием