MessageDialog nach 5 Minuten schließen lassen

[ak1]

Hallo Leute,

wie kann ich einen geöffneten Messagedialog(messagedlg) nach 5 Minuten vom Programm schließen lassen und dann ein bestimmten Messageresult weitergeben.
Also wenn der User nach 5 minuten keinen Button anklickt, dann soll das Programm selbstständig MessageResult = Yes ausführen.

Gruß

P.S. mit einem eigenen Formular währe es nicht das Problem...

[Bernhard Geyer]

Du könntest einen Thread starten, welcher nach 5 Minuten schaut ob der Dialog noch vorhanden ist und diesem dann eine entsprechende Meldung sendet.

[ak1]

So ein kleines Beispiel wäre super. :-)

[ak1]

Wie kann ich denn schauen, ob eine messagedlg offen ist?? Und wie übergeben ich diesem messagedlg einen messageresult?

Gruß

[nailor]

also ich glaube es wäre einfacher eine eigene form zu nehmen, auf die eine label mit der frage, 1-4 buttons mit ja/nein/vielleicht/alle und einen timer, der das ganze nach 5 minuten schließt zu packen...

[Ultimator]

Wozu braucht man denn einen Dialog mit Vielleicht als Auswahlmöglichkeit?
Außerdem könnte man das auch ohne Timer machen. Nämlich mit delay:

Delphi-Quellcode:

procedure delay(msec:longint);  
var  
  start,stop:longint;  
begin  
  start := gettickcount;  
  repeat  
  stop := gettickcount;  
  application.processmessages;  
  until (stop - start ) >= msec;  
end;

[nailor]

das mit vielleicht war ein joke. nächstmal schreib ich es dabei :?

delay finde ich persönlich ***. es unterbindet zuweilen das schließen einer form. und bei fünf minuten ist das ***

[Bernhard Geyer]

Zitat:

Zitat von ak1

So ein kleines Beispiel wäre super. :-)

Ist zwar kein 100%-Beispiel (Abgeleitet von einer anderen Lösung):

Delphi-Quellcode:

procedure TMyThread.Execute;
begin
  Sleep(5*60*1000);  // 5 min

  wnd := FindWindowEx(Application.MainForm.Handle, 0, nil, 'GesuchterFensterTitel');

  if wnd <> 0 then
  begin  
    BringWindowToTop(wndOption);                    // Ab und zu nötig
    SendMessage(wndOption, WM_COMMAND, ID_OK, 0);   // OK-Taste drücken
  end;
end;

[ak1]

Danke Dir, werde das mal ausprobieren.

Gruß