Проблема с главным потоком. Как заставить его ожидать не загружая процессор

[Altera]

Сообщение от s.Creator

Там это где ? Вот тут Вложение 19836 они работают ( во всяком случае у меня - Delphi 2010, windows XP ) /

*****************Я же 100 раз написал, что у меня форма не создаётся так как у тебя.

вот твой код

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := False;
  Application.ShowMainForm := False;
  Application.CreateForm(tsomeForm_wnd, someForm_wnd);
  someForm_wnd.Show;
  ShowWindow(Application.handle, SW_HIDE);
  Application.Run;
end.

а вот мой

var
appMsg: tMsg;

begin
  Application.MainFormOnTaskbar := False;
  someForm_wnd := tsomeForm_wnd.Create(nil);
  someForm_wnd.Show;

  while getMessage(appMsg, 0, 0, 0) do
  begin
     translateMessage(appMsg);
     dispatchMessage(appMsg);
  end;

  someForm_wnd.Free;
end.

Ты вообще разницу улавливаешь? Я ЕЩЁ раз повторю, я НЕ ХОЧУ создавать формы методом Application.CreateForm(tsomeForm_wn d, someForm_wnd); Не уловил? А Application.run не работает. Если нет главных форм. Это каким надо быть *******, что-бы до сих пор про это не прочитать...

Я спрашиваю, почему не работают горячие клавиши Action-ов и Tab почему не работает. При том что Ctrl+C, Ctrl+V работают...

Может быть ты просто не знаешь, чем отличается
someForm_wnd := tsomeForm_wnd.Create(Application);
от
Application.CreateForm(tsomeForm_wn d, someForm_wnd);
???

Хамство у нас под запретом.
Модератор.

[s.Creator]

Сообщение от s.Creator

...
Я в подробности не вникал, просто делал по стандарту.
...

Для особо острых:
Знаете, если удерживая кнопочку <Ctrl> щелкнуть левой кнопочкой мышки по
Application.Run;
Немного посмотреть и заменить вашу великолепную конструкцию на

  Application.MainFormOnTaskbar := False;
  someForm_wnd := tsomeForm_wnd.Create(nil);
  someForm_wnd.Show;

  with Application do
  begin
    repeat
      try
        HandleMessage;
      except
        HandleException(Application);
      end;
    until Terminated;
  end;

  someForm_wnd.Free;

То не пройдет и 2 минут как все прекрасно будет работать

[Altera]

Я заглядывал в application.run!
Дело не в этом. А в том, что я 100 раз написал какая у меня модель, а ты мне всё равно по-своему выдаёшь...

[s.Creator]

А теперь то что не так?
Форма создается по Вашей моделе.
HandleMessage вызывает ProcessMessage.
Процессор не грузится.
горячие клавиши Action-ов и Tab работают.

я НЕ ХОЧУ создавать формы методом Application.CreateForm(tsomeForm_wn d, someForm_wnd); Не уловил? А Application.run не работает. Если нет главных форм.