Showmodal sperrt zyklisches Event

[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 von Delphi_Rainer:

...
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;