MessageBox/Dlg per Programm schließen

[Kraisel]

Danke himitsu, danke sirius,

nein, nein, ich benötige MessageBox und MessageDlg denn:

MessageBox: ist länderspezifisch (also Yes anstatt ja usw.) und es kann in DLLs und bereits in initialization von Units genutzt werden, wenn alles andere noch gar nicht intitialisiert ist.
MessageDlg: ist eine normale Form, die mit CreateMessageDialog generiert wird. Aber von außen kommt man nicht heran, bzw. ich habe es nicht gefunden.

Das Ganze ist notwendig, wenn eine Meldung dazu führen soll, dass ein Mitarbeiter zwingend manuell z.B. einen Knopf im Schaltschrank drücken muss. Wenn dieser Knopf dann gedrückt ist, sollte die Meldung vom Schirm verschwinden.

Aber ich wiederhole: SendMessage(Application.ActiveFormHandle, WM_CLOSE, 0, 0) funktioniert einwandfrei. Ich möchte aber aus diversen Gründen die Fenster direkt und ohne MessageQueue schließen.

Ich habe hier im Forum keine Hinweise, die mich weiterbringen, gefunden.

Vielen Dank.

[Rul]

Zitat von Kraisel:

Aber ich wiederhole: SendMessage(Application.ActiveFormHandle, WM_CLOSE, 0, 0) funktioniert einwandfrei.
Ich möchte aber aus diversen Gründen die Fenster direkt und ohne MessageQueue schließen.

Die Applikation?

SendMessage(Applicatiom.Handle, WM_CLOSE, 0, 0);

oder nur das Meldungsfenster aus der Applikation?

Rul

[Uwe Raabe]

Zitat von Kraisel:

Ich möchte aber aus diversen Gründen die Fenster direkt und ohne MessageQueue schließen.

Alles was du in einer Single-Thread-Anwendung machst, ist am Ende das Abarbeiten von Nachrichten aus der MessageQueue.

Je nachdem welcher Dialog intern aufgerufen wird, hast du gar keine andere Wahl als eine Message an das Fenster zu senden. So wird z.B. bei Verwendung der alten Dialoge der Aufruf von MessageDlg in einem ShowModal landen - genauer in einer solchen Schleife:

Delphi-Quellcode:

        repeat
          Application.HandleMessage;
          if Application.Terminated then ModalResult := mrCancel else
            if ModalResult <> 0 then CloseModal;
        until ModalResult <> 0;

Du kannst allenfalls der Form-Instanz einen passenden ModalResult mitgeben. Allerdings wird das nichts, wenn die neuen Vista-und-höher-Dialoge aufgerufen werden - da gibt es keine Form-Instanz. Die MessageQueue ist hier die einzig sinnvolle Möglichkeit.