Showmodal sperrt zyklisches Event

[Delphi_Rainer]

Hallo !

Ich habe ein Problem mit showmodal und einer Ereignisroutine.

Ich habe eine Schnittstelle die Daten liest und immer wenn eine Anforderung gesendet wird, wird nach einer gewissen Zeit ein Ereignis ausgelöst das die Daten Zurückliefert.
Die Schnittstelle läuft in im Hauptprozess der Delphi Anwendung.
Wenn nun ein Klick auf ein Button im Formular gemacht wird, dann wird ein Fenster mit showmodal geöffnet.

Jetzt kommt der Fehler:

Wenn die Hauptanwendung gerade in der Ausführung des Ereignis steckt, dann wird das Ereignis solange nicht mehr ausgeführt bis das Modale Fenster geschlossen wird !!

Meine Schnittstelle bekommt dann keine Daten mehr !!!

Das heißt das wenn in irgend ein Event im Hauptprozess ein Modales Fenster durch buttonclick() aufgerufen wird, das Ereignis sperrt. Das kann doch nicht Sinn eines Modales Fensters sein ??

Gruß Rainer




Hat jemand ein Lösungsansatz ?

[BigAl]

Hallo Rainer,

so ganz kann ich dem nicht folgen. Grundsätzlich werden Ereignisse (Windows Botschaften) weiterhin empfangen, auch wenn ein modales Fenster geöffnet ist. Natürlich nur solange die Botschaftsverarbeitung der Anwendung auch aktiv ist - heißt "Application.ProcessMessages" wird aufgerufen. Das wird normalerweise von der VCL automatisch erledigt.

Kommunikation mache ich üblicherweise in einer eigenen Thread. Diese läuft dann komplett unabhängig vom Vordergrund. Allerdings aktualisiere ich z.B. die Anzeigen im Hauptfenster via Timer oder Thread-Sync Mechanismen. Funktioniert beides gut.

Frage: Was passiert in Deinem modalen Dialog? Rufst Du da irgendeine Funktion auf die dann solange ausgeführt wird bis der Dialog beendet ist?

Gruß
Alex

[Delphi_Rainer]

Hallo BigAll

Windows Botschaften werden ja noch abgeholt.

Ich erkläre nochmal kurz meine Schnittstelle.

1. Die Schnittstelle hat 10 Komponenten.
2. Jede Komponente hat ein Timer (Aufruf des Request)
3. Jede Komponente hat ein Event (Auswertung des Response)

Wenn der Fehler auftritt, dann werden auch alle anderen 10 Timer Ereignisse, aber nur 9 Response Ereignisse ausgeführt.

Ich habe ein internen Logger in der Anwendung integriert.

Da sieht man folgendes (ausschnitt aus dem Protokoll)

1. Timer Start Komp 2
2. Senden Komp 2 (Request)
3. Timer Ende Komp 2
4. Event Start Komp 2 (Response).
5. Event Ende Komp 2 (Response).
6. Timer Start Komp 3
7. Senden Komp 3 (Request)
8. Timer Ende Komp 3
9. Event Start Komp 3 (Response).
10. Buttonclick() -> Aufruf Fenster showmodal
11. Timer Start Komp 4
12. Senden Komp 4 (Request)
13. Timer Ende Komp 4
14. Event Start Komp 4 (Response).
15. Event Ende Komp 4 (Response).


Protokoll "Event Ende Komp 3" kommt erst wenn das modale Fenster wieder geschlossen wird.

Gruss Rainer

[hoika]

Hallo,
aber genau das ist der Sinn von "modal", oder nicht?.
Die Nachrichten bekommt das modale Fenster.

Lösung1: Threads
Lösung2: ?

[BigAl]

Was verstehst Du unter "Schnittstelle"? Mit was / wem wird über was kommuniziert?

[Delphi_Rainer]

Hallo

Also wenn ich eine simple Anwendung mit einem Timer (Event mit 100 ms) habe,
der mir die Uhrzeit anzeigt, und ich ein Modales Fenster gerade in der Abarbeitung des Events ausführe und
das Fenster offen lasse, meine Ausgabe der Uhrzeit dann stehen bleibt ????

Gruß Rainer

[Delphi_Rainer]

Hallo BigAl

Wenn ich folgendes mache

procedure form1.OnTimerEvent(sende:TObject);
begin
panel1.caption:=datetimetostr(now);
form2.showmodal;
end;

Dann würde ich es verstehen !!!

Aber ich rufe das Fenster in OnButtonclick auf.

Gruß Rauner

[BigAl]

Hallo Rainer,

da läuft irgendetwas anderes schief. Ich vermute mal, dass Du in deinem Dialog (dem modalen Formular) irgendetwas machst, dass die Verarbeitung der Botschaften unterbindet. Wie gesagt: Man muss immer sicherstellen, dass die Nachrichtenverarbeitung auch ausgeführt werden kann. Wenn Du im Dialog etwas machst, dass die Kontrolle nicht an die VCL gibt, dann solltest zumindest ein "ProcessMessages" ausführen.

z.B.:

Delphi-Quellcode:

for var i := 1 to 1000 do
begin
  // tue irgendwas
  Sleep(10);
  // Botschaftsverarbeitung
  Application.ProcessMessages;
end;

[Delphi_Rainer]

Hallo !

Habe mal ein Beispielprogramm hochgeladen.

Wenn auf den Button geklickt wird, dann kommt es ab und zu vor das der Timer nicht mehr getriggert wird. Immer wenn ich den Klick in der Ausführung des Events hinbekomme !

Gruß Rainer

[EmWieMichael]

Ein modales Fenster unterbricht die Ausführung des aufrufenden Fensters, also in Deinem Fall auch die Ausführung des Timers. Musst Du das Fenster modal anzeigen?

[Delphi_Rainer]

Hallo !

Ja die Anwendung ist so programmiert das der Anwender erst Eingaben , Auswahl einer Funktion ausführen darf bevor er eine andere Funktion ausführen kann. Ist vom Kunden so vorgegeben.

Aber...Warum unterbricht Delphi mitten im Event die Ausführung und öffnet das Modale Fenster ???

Das ist doch falsch !!!

Gruß Rainer

[EmWieMichael]

Zitat:

Zitat von Delphi_Rainer (Beitrag 1490962)

...
Aber...Warum unterbricht Delphi mitten im Event die Ausführung und öffnet das Modale Fenster ???
...

Nimm doch mal "application.ProcessMessages" raus.

[Blup]

Ursache ist klar das application.ProcessMessages innerhalb eines Timer-Ereignisses aufgerufen wird.
Wenn innerhalb dieses application.ProcessMessages dann ShowModal aufgerufen wird, wartet die Anwendung an dieser Stelle und setzt das Timer-Ereigniss erst danach fort.

[BerndS]

Dein Beispiel macht mit drei kleinen Änderungen das, was du warscheinlich erreichen willst.
Aber ich würde das Design überdenken und eine andere Lösung suchen.
1. Änderung Unit2:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
 form1.show;
end;

2./3. Änderung Unit1

Delphi-Quellcode:

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.FormHide(Sender: TObject);
begin
  Form2.Enabled := True;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Form2.Enabled := False;
end;

[himitsu]

Der nachfolgende Code in diesem Event (ButtonClick) wartet natürlich so lange, bis das ShowModal fertig ist (also nachdem das Fenster wieder geschlossen wurde) ... darum heißt es ja auch "modal".

Andere Events (Timer) können wärenddessen gesatertet werden.
Auf anderen Fenstern könnte man sogar wärenddessen Buttons klicken. (wenn sie nicht durch das Modal "disabled" würden ... z.B. wenn man in einem Timer ein neues Fenster öffnet, oder bei gesperrten Fenstern Diese wieder "enabled")

[BigAl]

Natürlich wartet der Code im ButtonClick. Das modale Fenster könnte auch was zurück liefern. Normalerweise frage ich das ModelResult ab um z.B. zu erkennen wie der User den Dialog verlassen hat. Aber das ändert nichts daran, dass die Botschaftsverarbeitung des aufrufenden Formulars weiterhin funktioniert - also z.B. Timer-Ereignisse ausgelöst werden.

Das mit dem ProcessMessages wurde auch missverstanden. Das sollte dann eingesetzt werden wenn man längere Verarbeitung macht. Im Timer-Event macht das ja nicht wirklich Sinn...