procedure TForm1.ListView1DblClick(Sender: TObject);
begin
{здесь можно вызвать открытие другой формы с полями для редактирования}
MaskEdit1.text:=listview1.ItemFocused.SubItems.Strings[0];
DateTimePicker1.Date:=StrToDate(listview1.ItemFocused.SubItems.Strings[1]);
RichEdit1.Text:=listview1.ItemFocused.SubItems.Strings[2];
end;
listview редактирование всех колонок
Как в listview редактировать записи во всех колонках, а то только редактируется в первой.
Кажись у ListView есть свойство SubItems или как-то так. Там пишешь listView1.SubItems.Add(...); Я не имею под ругой Студии, дык извеняюсь за граматические ошибки.
Цитата: miheyts
Как в listview редактировать записи во всех колонках, а то только редактируется в первой.
Сдается мне - никак. Пользуйтесь ДатаГридом.
Код:
--------------------------------------------------------
процедура добавления новой записи
Код:
procedure TZapisi.Button1Click(Sender: TObject);
begin
// добавляем в listview
with Glavnoe.ListView1.Items.Add do
begin
SubItems.Add(MaskEdit1.Text); // добавление время события
SubItems.Add(DateToStr(DateTimePicker1.Date)); // добавление даты записи
{ SubItems.Add(Edit2.Text); // добавление событие}
SubItems.Add(RichEdit1.Text); // добавление событие
end;
begin
// добавляем в listview
with Glavnoe.ListView1.Items.Add do
begin
SubItems.Add(MaskEdit1.Text); // добавление время события
SubItems.Add(DateToStr(DateTimePicker1.Date)); // добавление даты записи
{ SubItems.Add(Edit2.Text); // добавление событие}
SubItems.Add(RichEdit1.Text); // добавление событие
end;
-------------------------------------------------------
Процедура Сохранения изменённых данных в listview
Код:
ListView1.Selected.SubItems[0]:=maskedit1.text;
ListView1.Selected.SubItems[1]:=DateToStr(DateTimePicker1.Date);
ListView1.Selected.SubItems[2]:=RichEdit1.Text;
ListView1.Selected.SubItems[1]:=DateToStr(DateTimePicker1.Date);
ListView1.Selected.SubItems[2]:=RichEdit1.Text;