Sendmessage an Dialogfenster

[Nimmersatt]

Hallo,

Wenn im Programm ein Dialogfenster erscheint, dann will ich per SendMessage ein bestimmtes Button anklicken, um mit dem Programm fortzufahren.

Hier ein Beispiel das nicht funktioniert

Var wndmain,wndchild: hwnd;

begin
MessageDlg('Message',mtConfirmation,[mbYes,mbNo],0); // beliebiges Dialogfenster

wndmain:= GetForegroundWindow; // aktives Fenster ermitteln (das ist dann das Dialogfenster ?)

wndchild:= FindWindowEx( wndmain, 0, nil, ‘ja‘); // Button ermitteln - liegt hier der Fehler ?

sendmessage(wndchild,bm_click,0,0); // Button ‚Ja‘ clicken

//jetzt soll das Programm fortfahren
end;


Mache ich es mir zu einfach ?

Mit Sendmessage beschäftige ich mich erst seit Kurzem, ich bitte also im Voraus meine Verständnisschwierigkeiten zu entschuldigen.

[DelphiProgrammer]

Zitat von Nimmersatt:

Hallo,

Wenn im Programm ein Dialogfenster erscheint, dann will ich per SendMessage ein bestimmtes Button anklicken, um mit dem Programm fortzufahren.

Hier ein Beispiel das nicht funktioniert

Var wndmain,wndchild: hwnd;

begin
MessageDlg('Message',mtConfirmation,[mbYes,mbNo],0); // beliebiges Dialogfenster

wndmain:= GetForegroundWindow; // aktives Fenster ermitteln (das ist dann das Dialogfenster ?)

wndchild:= FindWindowEx( wndmain, 0, nil, ‘ja‘); // Button ermitteln - liegt hier der Fehler ?

sendmessage(wndchild,bm_click,0,0); // Button ‚Ja‘ clicken

//jetzt soll das Programm fortfahren
end;


Mache ich es mir zu einfach ?

Mit Sendmessage beschäftige ich mich erst seit Kurzem, ich bitte also im Voraus meine Verständnisschwierigkeiten zu entschuldigen.

Willst du eine Message ausgeben oder einen Text eingeben und dann mit einem Buttenbestätigen, oder was meinst du mit "bestimmtes Button anklicken"?

[himitsu]

Die "Dialoge" von z.B. ShowMessage und MessageDlg sind intern ganz normale TForms, auf denen man wie bekannt, über die entsprechenden VCL-Funktionen auch Buttons suchen und TButton.Clicken kann.

Zitat:

wndmain:= GetForegroundWindow; // aktives Fenster ermitteln (das ist dann das Dialogfenster ?)

Jain?

Nur wenn Dieses auch "aktiv" ist.

Zitat:

wndchild:= FindWindowEx( wndmain, 0, nil, ‘ja‘); // Button ermitteln - liegt hier der Fehler ?

Ja?

Ich bin mit sicher, daß die ‘ falsch sind, was dir mit Sicherheit der Compiler auch gesagt hat.
Und Ja, das 'ja' ist falsch, denn ist die Caption wirklich so? (Vorallem Groß-/Kleinschreibung und inkl. des "&" , für den markieren ShortCut).

Und was fragst du uns, ob da der Fehler ist?
Werte gefälligst selber die Rückgaben der APIs aus. (z.B. FindWindowEx sagt dir ja, ob es was gefunden hat)

bm_click? Warum nicht WM_...?

[sx2008]

MessageDlg() ist eine blockierende Funktion.
Sie kehrt erst dann wieder zum Aufrufer zurück wenn irgend ein Button in dem Dialog geklickt wurde.
Dein Code danach kommt also zu spät weil zu dem Zeitpunkt ist das Dialogfenster schon wieder zerstört.

[Sir Rufo]

@DelphiProgrammer

Der Grund hierfür ist, dass wohl vom Benutzer eine Entscheidung getroffen werden soll.
Wenn der aber innerhalb eines Zeitraums x keine Entscheidung trifft, dann wird eben eine Standardentscheidung angenommen.

"Wollen Sie das Programm wirklich beenden? Ja/Nein" -> nach 10 Sekunden ohne Reaktion des Benutzers wird "Ja" als Entscheidung angenommen und das Programm beendet.

Für genau so einen Fall würde ich einen eigenen Dialog erstellen der analog zum MessageDlg funktioniert (gleiche Parameter + TimeOut, gleiches Aussehen) und über einen Timer den Dialog mit der Default-Antwort zurückliefert.
(evtl. sogar noch mit einer ProgressBar oder halt etwas zum Anzeigen der verstreichenden Zeitspanne)

Delphi-Quellcode:

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; DefaultButton: TMsgDlgBtn; Timeout : Integer): Integer;
begin
  // eigentlich alles aus dem Original kopieren und einen Timer mit einbauen
end;

[himitsu]

Bei Luckie gab es irgendwo ein, MessageDialogTimeout (oder so) auf der Webseite und einen Post dazu sollte man hier auch irgendwo finden.
[edit] siehe MessageBoxTimeout

Und nein, MessageDlg blockiert nicht komplett, denn die MessageLoop läuft brav weiter (Application.ProcessMessages), womit z.B. ein vorher gestarteter Timer dennoch auslösen würde.