Kein "FormMouseDown" während Arbeit in anderer Prozedur ?

[letsfetz]

Hi, ich bin ein EX- Basicprogrammierer und mittlerweile auf Delphi7 umgestiegen.
Das klappt auch sehr gut ! - Mein erstes Fraktalprogramm funzt auch schon.
Sieht super aus und wenn es fertig ist will ich es hier auch zeigen...

Nun hab ich aber noch so´n paar kleinere Probleme...

Da ich daraus ein Bildschirmschoner proggen will (der eigentlich auch schon funktioniert),
hänge ich hier fest:

Die Berechnung des Fraktales ist im vollen Gange... - Und dann wenn man die Maus klickt oder die Tastatur betätigt, sollte das Fenster sofort schließen.

Dies tuts auch aaaaber: Erst nachdem das Fraktal fertiggerechnet hat...(und das kann dauern).

FormMouseDown habe ich als procedure mit im Formular. Wie gesagt... Während der rechnet kommt es nicht zum Abbruch (Application.Terminate

Vermutlich habe ich nur einen kleinen Denkfehler gemacht...
Wer gibt mir den entscheidenden tip ?

Gruß Micha

[Bernhard Geyer]

Stichwort: Application.ProcessMessages einfügen, damit währen der lanandauernden Aktion Benutzerangeben entgegen genommen werden.
Altenative: Berechnung in Thread auslagern.

[letsfetz]

Zitat:

Stichwort: Application.ProcessMessages einfügen, damit währen der lanandauernden Aktion Benutzerangeben entgegen genommen werden.

OK, hört sich gut an... Wenn ich nun noch weiss wo ich das einfügen soll ?

In der rechnenden Prozedur ?
Oder weiter oben bei den Deklarationen ?

Dann bin ich auf dem Weg !

[Bernhard Geyer]

Zitat von letsfetz:

OK, hört sich gut an... Wenn ich nun noch weiss wo ich das einfügen soll ?

In die rechnenden Prozedur ?

[Marphy]

Hallo ihr beiden,
Applications.ProcessMessages (Delphi) = DoEvents (VB)

Das sollte dir weiterhelfen

Gruß, Marco

[letsfetz]

Zitat von Marphy:

Hallo ihr beiden,
Applications.ProcessMessages (Delphi) = DoEvents (VB)

Das sollte dir weiterhelfen

Gruß, Marco

Danke schon mal, - ich habe "Applications.ProcessMessages" in die rechnende Schleife für
das Fraktal eingefügt. Das Programm reagiert dennoch nicht auf Mausklick oder Tastatur.
Es rechnet immer erst fertig (ca 3 min). Dann wird der Klick registriert und das Programm
endet.

Wenn ich nicht klicke rechnet es brav weiter (Bildschirm löschen und nächstes Fraktal).

Noch was: Ich habe Applications.ProcessMessages in verschiedene Positionen der (3 in sich verschachtelten) Schleife eingebaut - Ohne Erfolg. Außer das die eh schon langsame Berechnung noch langsamer wird.

Gibt es einen einfacheren Weg ? - Sonst werde ich halt mit einer IF-Abfrage irgend einen Tastendruck
erkennen müssen.

Noch was am Rande: Das ist das beste und nettese Forum in welchen ich jemals rumgestöbert habe.
1000 Suchanfragen lieferten mir fast 1000 Lösungen und deswegen kann ich es nur weiterempfehlen.

Danke, Micha

[Khabarakh]

Das sollte eigentlich gehen, ich mache es bei einer Endlosschleife nicht anders . Hier mal der Aufbau in etwa:

Delphi-Quellcode:

procedure TForm1.Activate(...);
begin
  ...
  while IsRunning do
  begin
    ...
    Application.ProcessMessages;
  end;
end;

procedure TForm1.Paintbox321Click(...);
begin
  DoSomething;
end;

Ein Schleifendurchlauf dauert im Durchschnitt 7ms, DoSomething wird ohne sichtbare Verzögerung ausgeführt.

[SirThornberry]

oder wie schon erwähnt die Berechnung in einen Thread auslagern.

[malo]

Zitat von SirThornberry:

oder wie schon erwähnt die Berechnung in einen Thread auslagern.

Und ein Neuling in diesem Gebiet (jedenfalls in der Sprache Delphi) wird dazu hier ein Tutorial von Luckie finden

[letsfetz]

Zitat von malo:

Zitat von SirThornberry:

oder wie schon erwähnt die Berechnung in einen Thread auslagern.

Und ein Neuling in diesem Gebiet (jedenfalls in der Sprache Delphi) wird dazu hier ein Tutorial von Luckie finden

So ! - Ich glaube mein Problem wurde erkannt !

Ich kenne mich in der Tat noch nicht mit Threads aus...
Somit werde ich das Tutorial wie oben erwähnt durchackern.
Es könnte die Lösung sein. Dazu brauch ich etwas Zeit.

*grins und schmunzel* -> Ich kann mir schon denken warum sich die Schleife nicht abbrechen lässt:

Windows ist sooo intelligent, daß es erkennt wenn ein prima Code läuft - diesen dann auch nicht mehr beenden will. Es könnte ja sein das als nächstes ein Bluescreenprogramm gestartet wird.
*mußnunselberlachen*

Ihr hört demnächst auf jeden Fall von mir... Und nochmals Danke für die heißen Tipps !

Gruß Micha