Отправка WM_COMMAND в TMenuItem

Question

В методе OnShow моей формы Delphi я определяю, что диалог должен открываться автоматически после открытия формы, и я должен быть в состоянии сделать это, имитируя щелчок по элементу меню.

Тем не менее, вызов menuitem.Click вызывает диалоговое окно до того, как открывается основная форма, а это не то, что я хочу.

Я ожидаю, что должен делать то, что я хочу, но я не могу найти, какие параметры передать для "wparam", чтобы отправить щелчок на мой пункт меню.

PostMessage(handle, WM_COMMAND, wparam, 0)

Документы MSDN WM_COMMAND говорят об идентификаторах IDM_ *, но как это выглядит в Delphi?

Answer 1

(я знаю, что это очень старый вопрос, но несмотря на то, что он каким-то образом решен, реальный вопрос действительно остался без ответа.)
-

Идентификатор элемента команды «TMenuItem» находится в свойстве Command. Согласно документации WM_COMMAND старшее слово 'wParam' будет равно '0', а младшее слово будет идентификатором меню;

PostMessage(Handle, WM_COMMAND, MakeWParam(MyMenuItem.Command, 0), 0);

или просто;

PostMessage(Handle, WM_COMMAND, MyMenuItem.Command, 0);

С элементом всплывающего меню будет небольшая разница: VCL обрабатывает сообщения всплывающих меню с помощью другого окна утилиты. Глобальная переменная PopupList содержит дескриптор в свойстве Window;

PostMessage(PopupList.Window, WM_COMMAND, MyPopupMenuItem.Command, 0);

Answer 2

Возможно, вы можете попытаться открыть диалог в событии OnActivate? Я не совсем уверен, что OnActivate будет запущен снова, кроме как при показе формы, но если да, вы можете использовать:

procedure TForm1.FormActivate(Sender: TObject);
begin
  Form2.ShowModal;
  Self.OnActivate := nil;
end;

Answer 3

Один из методов, который я использовал и который очень похож на решение MarkF, - это создание нового типа сообщения, определенного пользователем, и отправка сообщения с использованием этого типа себе, когда вы решите, что нужно выполнить этот другой процесс после основной формы дисплеи:

const
  wm_SpecialProc = wm_User + 1;

procedure TForm1.WMSpecialProc(var Message:tMessage); message wm_SpecialProc;
begin
  Form2.ShowModal;
end;

procedure TForm1.OnShow(Sender:tObject);
begin
  if true then
    PostMessage(Application.MainForm.Handle,wm_SpecialProc,0,0);
end;

Приятной особенностью этого метода является то, что вы контролируете генерацию сообщений, поэтому можете заполнить ЛЮБОЙ lparam или wparam, который вы хотите позже использовать в своем обработчике. Я отправил сообщение напрямую через application.mainform, но вы также можете просто сказать, дескриптор для текущей формы.

Answer 4

Я не думаю, что вы можете отправить сообщение прямо в ваш пункт меню, но вы можете просто опубликовать его в главном окне и показать свой диалог оттуда. Я делаю это, и это прекрасно работает, так что диалоговое окно (в моем случае, приглашение для входа в систему) появляется в верхней части главного окна, чтобы избежать путаницы.

-Марк

procedure WMPostStartup(var Message: TMessage); message WM_POSTSTARTUP;

procedure TMainForm.WMPostStartup(var Message: TMessage);
begin
  Self.Refresh;
  // Now show the dialog box.
end;

Answer 5

Либо обработайте событие Application.OnIdle чем-то вроде ...

if not DialogDone then
begin
    MyDialogForm.ShowModal; // or menuItem.Click ....
    DialogDone := true;
end;

OnIdle не будет запускаться (в первый раз), пока форма не отобразится и очередь сообщений не станет пустой.

Answer 6

Не нужно ли вам делать это с одноразовым таймером, если вы хотите, чтобы форма отображалась в соответствии с обычным Show / ShowModal, полностью рисовалась (и т. Д.), И , а затем немедленно выполняйте что-то еще?

tmrKickOff : a TTimer, 100 ms interval, disabled at design time, 
fires off a 'tmrKickOffTimer' event.


in form create,
tmrKickOff.Enabled:=false; //just in case something happened in IDE

in form show, at end of all other stuff;
tmrKickOff.Enabled:=true;

in tmrKickOffTimer
begin
  tmrKickOffTimer.Enabled:=false;
  menuItemClick(nil);
end;

с извинениями за стиль, форму и любые сообщения об ошибках: -)