Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Kein Popup während Berechnungen?


Almidagu - Mo 27.06.05 10:57
Titel: Kein Popup während Berechnungen?
Guten Tag,

ich kann das folgende Problem nicht lösen: wenn mein Programm viel berechnet, kann Popup Menü nicht angezeigt werden.

Ich möchte mittels des Popups eine Möglichkeit haben, gerade diese Berechnungen zu unterbrechen.

Weil ich nicht weiter gehen kann, warte ich auf Ihre Hilfe.

Danke im Voraus
Almidagu


Lannes - Di 28.06.05 15:09
Hallo,

setz "Application.ProcessMessages" ein.
Hier mal ein Beispiel-Code:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
 
var z,i : integer;
begin
 blAbbruch := False;
 for z := 0 to 1000000 do
   begin
     i := z;
     if z Mod 10 = 0 then
      begin
      Caption := 'Schleife '+intToStr(i);
      Application.ProcessMessages;
      if blAbbruch = True then
        Break;
      end;
   end;//Ende for z
end;

procedure TForm1.StopClick(Sender: TObject);
begin
  blAbbruch := True;
end;


Almidagu - Mi 29.06.05 09:10
Guten Tag Lannes!

Vielen Dank für Deine Hilfe. Jetzt kloniere ich "ProcessMessages" vielmals.

Grüße
Almidagu


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!