По поводу коммон контрола SysListView32

← →
Gerda © (2003-01-14 22:48) [0]

Дарова мастера.
Вот посмотрите:
........... procedure TForm1.Button1Click(Sender: TObject); var col:TLVColumn; begin FillChar(col, SizeOf(col), #0); col.mask:=LVCF_WIDTH or LVCF_TEXT or LVCF_FMT; col.fmt:=LVCFMT_LEFT; col.cx:=100; col.pszText:=PChar("Gerda"); SendMessage(h, LVM_INSERTCOLUMN, 0, lparam(@col)); end; //-------------------------------------------------------------- procedure TForm1.FormCreate(Sender: TObject); begin h:=CreateWindowEx(0, PChar("SysListView32"), nil, WS_CHILD, 0, 0, 300, 300, Form1.Handle, 0, Hinstance, nil); end; //-------------------------------------------------------------- procedure TForm1.FormShow(Sender: TObject); begin ShowWindow(h,SW_SHOW); end; //-------------------------------------------------------------- ...........
Создать, то создался, а вот добавлятся колонки не хотят !?!
Мож кто шарит...
Заранее благодарен.

← →
Tux (2003-01-15 00:10) [1]

const LVS_REPORT = 1;

h:=CreateWindowEx(0, PChar("SysListView32"), nil, WS_CHILD or WS_VISIBLE or LVS_REPORT,
0, 0, 300, 300,
Form1.Handle, 0, Hinstance, nil);

Это из серии "Угадал все буквы, не смог назвать слово" :)

Да я уже знаю, просто док не дочитал до конца - ленивый :)
Все равно спасиба.

По поводу коммон контрола SysListView32 Найти похожие ветки