In einem Timer "ShowModal" stoppt Timer ... [ gelöst ]

[corpsman]

Hossa,

Wenn ich ein Projekt erstelle mit 2 Formularen, und auf Form1 einen TTimer setzte. Und dann so was mache :

Code: Alles auswählen

Var
  a: Integer = 0;
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
  inc(a);
  If a = 3 Then form2.showmodal;
  caption := inttostr(a);
End;

Dann zählt der Timer unter Delphi 5 Pro Windows und unter Lazarus ( Windows) einfach weiter. Aber unter Linux( Ziel GTK2 Beta) bleibt er stehen .

Gibt es da irgend einen Trick, dass es unter Linux ebenfalls weiter zählt. ( Ein Show anstatt eines Showmodal ist hierbei keine Lösung, da ich ja die Modal Eigenschaft erhalten muss)

[theo]

Versuch das Form.Showmodal asynchron aufzurufen mit Appllication.QueueAsyncCall

http://wiki.lazarus.freepascal.org/Asynchronous_Calls" onclick="window.open(this.href);return false;

[corpsman]

Cool es geht,

Vielen Dank