Как создать ListBox?

[AidarBik]

Как на 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.

[rpy3uH]

не всё так просто!
для придания лучшего интерфейса надо делать сабклассинг, указывать дополнительные флаги и т.д. и т.п., а высота разная потому что наверно она выранивается что бы быть кратной высоте одного элемента.

[AidarBik]

Сообщение от rpy3uH

для придания лучшего интерфейса надо делать сабклассинг, указывать дополнительные флаги и т.д. и т.п.

А можно поподробнее?

[mihali4]

Из APIx:
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);