Текущий архив: 2003.01.23;
Скачать: CL | DM;

Вниз

По поводу коммон контрола 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);

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

---

← →
Gerda ©   (2003-01-15 19:20) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c