Problem mit WM_COMMAND

[Cuchulainn]

Ich habe folgende Prozedur:

Delphi-Quellcode:

procedure TS12Kommandodatei.PErzeugenKlick;
var hMenue: HMENU;
    hBiss: HWND;
    HDatei: HMENU;
    IntErzeugen: Integer;
    w_param: WPARAM;
begin
  hBiss := FindWindow(nil, 'Biss+');
  hMenue := GetMenu(hBiss);
  if hMenu(hBiss) <> 0 then
  begin
    hDatei := GetSubMenu(hMenue, 0);
    if hDatei <> 0 then
    begin
      IntErzeugen := GetMenuItemId(hDatei, 1);
      w_param := MAKEWPARAM(IntErzeugen, 0);
      SendMessage(hBiss, WM_COMMAND, w_param, 0);
      PErzeugen;
    end;
  end;
end;

Ich rufe einen Menüpunkt auf. Das funktioniert auch einwandfrei; das gewünschte Fenster wird geöffnet. In der Prozedur PErzeugen möchte ich mit dem nun geöffneten Fenster (ein Speichern-unter-Dialog) weiter arbeiten. Aber das Programm wird unterbrochen, bis ich dieses Fenster wieder geschlossen habe. Erst dann wird die Prozedur PErzeugen ausgeführt. Aber dann ist das Fenster ja nicht mehr da, und die Prozedur kann natürlich nichts tun. Warum wird das Programm an dieser Stelle unterbrochen? Und wie kann ich das ändern?

[toms]

Hi,

Probier's mal mit PostMessage anstatt SendMessage.

Zitat:

Sending the message directly (using SendMessage) means that it will be
processed before any messages currently in the message queue (for a given
thread). Indeed, SendMessage does not return (and hence no additional
messages are retrieved in the same thread) until the message is processed.

By contrast, posting the message to the message queue (using PostMessage)
means that it will be processed after the processing of the current message
is complete (together with the processing of any nested SendMessage calls)
and after any messages (of equal or higher priority) that are already in the
queue. PostMessage returns immediately after placing the message in the
queue.

Thus choosing SendMessage vs PostMessage is a way to control the order in
which messages are processed. This is sometimes essential to the logic of a
procedure.

[Cuchulainn]

Genau das war's auch. Vielen vielen Dank.