[hasherfrog]

А Вы не забыли SS_LEFT какой-нибудь? Вместо WM_SETTEXT? А то WM_SETTEXT - это "сообщение", а не "стиль"

[Savant]

hasherfrog
Thanks, это у меня заскок малец
А проблема была в другом (Винда и с WM_SETTEXT все правильно создает): вместо Label1:=CreateWindow('Label','See me?',....) надо было Label1:=CreateWindow('STATIC','See me?',....) Это второй заскок

[Savant]

Кстати, вот еще интересная ситуация. Во многих примерах я видел следующее:

Код:

while GetMessage( lpMsg, hWnd, 0, 0 ) do begin
  TranslateMessage( lpMsg );
  DispatchMessage( lpMsg );
end;

У меня подобная конструкция приводит к тому, что окно после WM_DESTROY разрушается, а из цикла программа не выходит! Исправляю на GetMessage( lpMsg, 0, 0, 0 ) и все "ок". Кто-нибудь может это прокомментировать?

[hasherfrog]

Честно, я пока чего-то не догоняю, в чём проблема (не проснулся ещё ), но можете почитать тут описание по-русски
http://www.mini-soft.net.ru/msdn/glob_1.php потом Crtl+F GetMessage

[Savant]

hasherfrog
Да не, проблемы-то нет . Я просто указываю на то, что почти везде GetMessage() дается примерно в таком контексте

Код:

while GetMessage( lpMsg, hWnd, 0, 0 ) {...}

А у меня почему-то подобная конструкция из цикла не выходит, когда окно с хендлом hWnd закрывается

hWnd - дескриптор окна, сообщения для которого следует получить. Этот аргумент может принимать нулевое значение. Это значение свидетельствует о том, что функция GetMessage должна получать сообщения для любого окна, принадлежащего данному потоку, и сообщения от потока, посланные функцией PostThreadMessage

Вот когда на нуль подправил, тогда все запахало (о чем и написал постом выше)... Тогда как же использовать аргумент hWnd?

ps: 1. Я и английский знаю
2. Не спал еще , отсюда и ляпы разные

[hasherfrog]

Дык а откуда взялся hWnd? Его кто инициализировал? И как? Дайте кусок текста.

[mrcnn]

Petzold дает эту конструкцию во всех примерах в таком виде:

Код:

while (GetMessage (&msg, NULL, 0, 0))
          {
          TranslateMessage (&msg) ;
          DispatchMessage (&msg) ;
          }

[Savant]

Уважаемый mrcnn, я знаю, что "с нулём" (т.е. когда функция принимает все сообщения из потока) все отлично работает, гораздо более интересно, почему не работает с конкретным значением hWnd (т.е. когда функция принимает сообщения от данного окна).

Уважаемый hasherfrog, вот нарезка кода:

Код:

var
  Msg: TMsg; // аналог MSG в Си
  handleWnd, Label1 : THandle; // аналог HWND в Си
  .........
  handleWnd:=CreateWindow(myClassName,'See a label below?',WS_OVERLAPPEDWINDOW,0,0,200,100,hWndParent,0,hInstance,nil);
  if handleWnd = 0 then
    if MessageBox(0,'Failed to create Window'#13'Close Application?',nil,MB_TASKMODAL or MB_ICONWARNING or MB_OKCANCEL)=ID_OK then
      Exit;
  Label1:=CreateWindow('STATIC','See me?',WS_VISIBLE or WS_CHILD or WM_SETTEXT,10,10,60,23,handleWnd,0,hInstance,nil);
  if Label1 = 0 then
    if MessageBox(0,'Failed to create Label'#13'Close Application?',nil,MB_TASKMODAL or MB_ICONWARNING or MB_OKCANCEL)=ID_OK then
      Exit;
  .........
  ShowWindow(handleWnd, SW_SHOW);
  UpdateWindow(handleWnd);
  while GetMessage(Msg, handleWnd, 0, 0) do begin // если вместо handleWnd поставить 0, то все отлично
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
  .........

Проблема в том, что программа не выходит из цикла while.

[frizzn]

Savant

"с нулём" (т.е. когда функция принимает все сообщения из потока) все отлично работает, гораздо более интересно, почему не работает с конкретным значением hWnd (т.е. когда функция принимает сообщения от данного окна)

AFAIK, когда приходит WM_QUIT, окно уже не существует (hWnd показывает пальцем в небо). Поэтому приходится указывать NULL, т.е. независимо от окна