Показать сообщение отдельно
  #6  
Старый 02.10.2006, 23:25
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  li: TListItem;
begin
   li := ListView1.Items.Add;
   li.Caption := Edit1.Text;      // Добавить в первый столбец
   li.SubItems.Add( Edit2.Text ); // Добавить во второй столбец
   li.SubItems.Add( Edit3.Text ); // Добавить в третий столбец
end;
Ответить с цитированием