Создаётся окно на апи
| Код |
procedure CreateWindowUP;
var
wc: TWndClassEx;
begin
wc.cbSize := SizeOf(TWndClassEx); // заполнение стpуктуpы wc
wc.style := CS_VREDRAW or CS_HREDRAW; //стиль (комбинация стилей) окна
wc.lpfnWndProc := @WindowProcLogin; //адрес оконной процедуры
wc.cbClsExtra := 0; // выделенная память
wc.cbWndExtra := 0; // выделенная память
wc.hInstance := HInstance; // указатель на экземпляр программы
wc.hIcon := LoadIcon(0, IDI_APPLICATION); //указатель на пиктограмму окна
wc.hCursor := LoadCursor(0, IDC_ARROW); //курсор окна
wc.hbrBackground := COLOR_WINDOW + 1; //кисть, закрашивающая окно
wc.lpszMenuName := nil; //имя меню класса окна
wc.lpszClassName := '111'; //имя класса окна
RegisterClassEx(wc);
MainWnd := CreateWindowEx(0,wc.lpszClassName,wc.lpszClassName,WS_OVERLAPPED or WS_SYSMENU or WS_MINIMIZEBOX,-100,Integer(CW_USEDEFAULT),100,100,0,0,HInstance,nil);
ShowWindow(MainWnd, SW_SHOWNORMAL); //отобpазить наше окно на десктопе
UpdateWindow(MainWnd); // обновить клиентскую область
while (GetMessage(Msg, 0,0,0)=True) do begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
|
обратите внимание на строку
| Код |
wc.lpfnWndProc := @WindowProcLogin; //адрес оконной процедуры
|
вопрос:
Как я понимаю, когда окну ОС отправляет собщение, его обрабатывает функция WindowProcLogin. Верно?
Если я не ошибаюсь, следующий вопрос -
Когда в окно отправляется, допустим 10 сообщений, но оно ещё не обработало первое, как будет вести себя программа?
1. Подождёт обработки первого, потом обработает остальные в порядке очереди (если так, то какой максимальный размер очереди?)
2. Обработка каждого сообщения будет выполняться сразу, как оно приходит.
Т.е. получается выделяет по потоку на сообщение?
Например отправляет 10 сообщений, каждое из которых обрабатывается по 10 секунд.
Программа отработает за
1. 100 секунд (по очереди)
2. 10 секунд (запустит по 10 потоков)
?
спасибо
|
)