| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

По поводу коммон контрола SysListView32 [D5, Win95/98]

Gerda ©   (2003-01-14 22:48:00) 

Дарова мастера.
Вот посмотрите:
...........
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;
//--------------------------------------------------------------
...........
Создать, то создался, а вот добавлятся колонки не хотят !?!
Мож кто шарит...
Заранее благодарен.

---

Gerda   (2003-01-15 19:20:00) [1]

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

---

Tux   (2003-01-15 00:10:00) [2]

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);

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

---

Наверх