Форум: "Основная";
Текущий архив: 2003.01.23;
Скачать: [xml.tar.bz2];
Вниз
По поводу коммон контрола 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c
