MS ListView32

← →
csr © (2004-04-23 12:14) [0]

Как на винапи добавлять и удалять элементы в\из ActiveX MS ListView32 из MS common ctrl 6 ? Желательно с примером. Спасибо.

← →
csr © (2004-04-23 13:42) [1]

Господа, не ужели никто не знает? Я делаю так:

var i: TLVITEM;
begin
item.mask := LVIF_TEXT;
item.pszText := "My text";
item.cchTextMax := 255;
ListView_InsertItem(lv.handle, item);

не проходит ...

← →
clickmaker © (2004-04-23 14:39) [2]

ZeroMemory(@item, SizeOf(TLVItem)) перед заполнением

← →
csr © (2004-04-28 15:44) [3]

Все равно не получается!! Не добавляется ничего. Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var item: TLVITEM;
begin
ZeroMemory(@item, SizeOf(TLVItem));
item.mask := LVIF_TEXT;
item.iItem := 0;
item.iSubItem := 1;
item.pszText := "My text";
item.cchTextMax := 7;
ListView_InsertItem(lv.handle, item);
end;

← →
clickmaker © (2004-04-28 16:00) [4]

iSubItem д.б. = 0

← →
[lamer]Barmaglot © (2004-04-28 17:51) [5]

Есть подозрение, что не созданы колонки...

Проще вот код из моей программы вставки колонки и вставки итема.

procedure BarInsertColumn; var LVColumn1, LVColumn2: LV_Column; begin //-------------------------вставка колонны--------------- Column1:="Имя"; LVColumn1.mask:= LVCF_FMT or LVCF_TEXT {or LVCF_WIDTH}; LVColumn1.fmt:= LVCFMT_LEFT ; LVColumn1.cx:=150; LVColumn1.pszText:=Column1; LVColumn1.cchTextMax:=length(Column1); SendMessage(hWnd_Listview1,LVM_InsertColumn,0, Integer(@LVColumn1)); SendMessage(hWnd_Listview2,LVM_InsertColumn,0, Integer(@LVColumn1)); Column2:="Размер"; LVColumn2.mask:= LVCF_FMT or LVCF_TEXT {or LVCF_WIDTH}; LVColumn2.fmt:= LVCFMT_CENTER ; LVColumn2.cx:=150; LVColumn2.pszText:=Column2; LVColumn2.cchTextMax:=length(Column1); SendMessage(hWnd_Listview1,LVM_InsertColumn,1, Integer(@LVColumn2)); SendMessage(hWnd_Listview2,LVM_InsertColumn,1, Integer(@LVColumn2)); end;

Procedure BarInsertItem(Where: THandle; Item1: PChar; item2: PChar); var LVItem1: TLVItem; begin LVItem1.mask:=LVIF_TEXT; LVItem1.iItem:=0; LVItem1.iSubItem:=0; LVItem1.pszText:=item1; LVItem1.cchTextMax:=length(item1); SendMessage(Where,LVM_InsertItem,0 ,Integer(@LVItem1)); LVItem1.iItem:=0; LVItem1.iSubItem:=1; LVItem1.pszText:=item2; LVItem1.cchTextMax:=length(item2); SendMessage(Where,LVM_SetItem,1 ,Integer(@LVItem1)); end;

← →
csr © (2004-04-30 11:46) [6]

2 [lamer]Barmaglot ©

Использую твой код с TListView - вылетает AccessViolation ... В чем дело подскажи плз?

← →
csr © (2004-04-30 12:06) [7]

И походу вопрос: я использую ActiveX MS ListView 32 из CommCtrl! Импортировал tlb, положил Лист на форму. И оказалось что не перерисовывается этот контрол! В чем дело?

Код нормально работает со всеми видами ListView кроме vsReport :(. Даже после создания колонок при их перемещении выскакивает ошибка!

Новый вид спама через ListView ? Любопытно...

Удалено модератором
Примечание: Выражения выбираем

MS ListView32 Найти похожие ветки