|
|
От: |
smartov
|
|
| Дата: | 29.01.06 12:40 | ||
| Оценка: | |||
W:=CreateWindow('EDIT','',WS_POPUP or ES_MULTILINE,100,100,200,200,Desktop,0,hInstance,nil);
ShowWindow(W,SW_SHOW);
repeat
R:=integer(GetMessage(M,W,0,0));
if R=-1 then continue;
if R=0 then break;
TranslateMessage(M);
DispatchMessage(M);
until false;