Версия 5.50 Получение и обработка сообщений в немодальных окнах Кибор

#define WS_CHILD 1073741824
#define WS_VISIBLE 268435456
#define WS_BORDER 8388608
#define LB_ADDSTRING 384
#define LB_SETCURSEL 390

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );

int list;

createdialog(0);
showdialog(0, "Диалог",100, 100, 300, 300, 1, 1);

// добавить строки в список
add_list("текст0");
add_list("текст1");
add_list("text2");
add_list("text3");
/////////

sendmessage(LB_SETCURSEL, 2, 0, formatiw(list)); // 2й параметр - индекс строки для выделения начиная с 0

loop()sleep(10);


function getmessage(0, WM_CREATE)
{
list=CreateWindow(0, "LISTBOX", "", WS_BORDER | WS_CHILD | WS_VISIBLE, 10, 10, 100, 200, gethwnd(0), 0, 0, 0);
}

function add_list(string s)
{
new char c[size(s)+1];
strcpy(#c[0], s);
sendmessage(LB_ADDSTRING, 0, address(#c[0]), formatiw(list));
delete c;
}