SendMessage wartet nicht

[Neutral General]

Ist ja auch ganz logisch. ShowModal blockiert solange bis dasn Fenster geschlossen wird. Das hat nichts mit SendMessage zu tun.
Dementsprechend kommt er zu dem exit logischerweise auch erst wenn das Fenster geschlossen wurde. Das andere Programm kriegt wohl
vorzeitig eine 0 zurück (Timeout) weil es ansonsten solange hängen würde bis das Fenster wieder geschlossen wird.

Unterm Strich heißt das: ShowModal im WndProc ist keine gute Idee.

[Sunlight7]

Dann wäre aber die Beschreibung im MSDN falsch.
Auch ein SendMessageTimeOut mit ner Zeit gegeben von einer Stunde wartet nicht solange.

[Der schöne Günther]

Kontrollierst du bitte nochmal deinen Quellcode? SendMessageTimeout(..) hat nicht vier Parameter, sondern mehr.

[Sunlight7]

Zitat von Der schöne Günther:

Kontrollierst du bitte nochmal deinen Quellcode? SendMessageTimeout(..) hat nicht vier Parameter, sondern mehr.

Das war nur ein Copy & Paste Fehler, sollte nur SendMessage sein

[Zacherl]

Ok nochmal von vorne Ein Result von 0 bei SendMessage deutet NICHT auf einen Fehler hin. Ein Result von 0 bei SendMessageTimeout aber definitiv schon. Ich gehe jetzt einfach mal von SendMessage aus.

Das Problem hat Günther schon korrekt erkannt:
ShowModal startet eine eigene Message-Verarbeitung und sorgt deshalb dafür, dass deine eigene Message vom Default Message-Handler abgearbeitet und aus der Queue entfernt wird. Das ist dann der Moment, in dem SendMessage aufhört zu blocken.

[Sunlight7]

ShowModal läuft in der 2. Anwendung, was hat das mit dem Blocken in der 1. Anwendung zu tun? Oder verstehe ich da was falsch?

[Der schöne Günther]

Ich dachte die 1. Anwendung wird nicht geblockt, heißt: Du bekommst einen Rückgabewert obwohl das mit ShowModal() geöffnete Fenster noch offen ist.
Die Erklärung war dass der ShowModal()-Aufruf der Form2 selbst anfängt Nachrichten zu verarbeiten. Dem hast du deinen eigene Nachricht nicht beigebracht. Er wirft sie weg und beantwortet sie mit Null.

Versuche es doch mal so:

Delphi-Quellcode:

// TWindowHook = function (var Message: TMessage): Boolean of object;
function TForm1.handleIpcShowForm(var Message: TMessage): Boolean;
const
   WM_IPC_SHOWFORM = WM_USER + 1;
var
   secondForm: TForm;
begin
   case Message.Msg of
      WM_IPC_SHOWFORM: begin
         secondForm := TForm.Create(nil);
         try
            Message.Result := secondForm.ShowModal();
            Result := True;
         finally
            secondForm.Destroy();
         end;
      end;
   else
      Result := False;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.HookMainWindow(handleIpcShowForm);
end;

[Zacherl]

Zitat von Sunlight7:

ShowModal läuft in der 2. Anwendung, was hat das mit dem Blocken in der 1. Anwendung zu tun? Oder verstehe ich da was falsch?

Der Sender blockt halt nur so lange, bis der Empfänger die Nachricht bearbeitet hat. Du gehst davon aus, dass dies erst nach dem ShowModal der Fall ist. Da ShowModal die Message aber selbstständig abarbeitet, hört SendMessage praktisch direkt zeitgleich mit deinem ShowModal Aufruf auf zu blockieren.