[The Shadow]

Как на WinAPI создать ListBox так, чтобы он был такой же как при использовании VCL. Я делаю так:

Код:

CreateWindowEx(0, 'ListBox', 'ListBox1', WS_BORDER or WS_CHILD or WS_VISIBLE, 8, 24, 169, 162, pWnd, 0, HInstance, nil);

Но границы у него не такие, как у VCL'овского ListBox'а, и высота меняется не по пикселам. Например, если выбираю высоту 162, то она чуть больше 162, а если 160, то меньше 160.

[voron_paa]

А почему не просто создать VCL? Нафига такой гемор?

[The Shadow]

Я уже сделал.

Код:

ListBox1 := CreateWindowEx(
WS_EX_CLIENTEDGE, 'listbox', '',
WS_CHILD or WS_VISIBLE or LBS_EXTENDEDSEL,
120, 40, 121, 97, Handle, 0, hInst, nil);
SendMessage(ListBox1, WM_SETFONT, hFont, 0);