Funktion / Prozedur warten lassen bis...

[TheMiller]

Hallo,

wie kann ich es realisieren, dass eine eigene Funktion oder Prozedur auf ein Ergeinis wartet... Zum Beispiel auf das Ändern eines Edit-Feldes oder den Click auf einen Button?

Danke!

[Sunlight7]

Hallo,

das wäre eine Möglichkeit:

Delphi-Quellcode:

procedure TForm1.DoSomething;
begin
   // Mach was
   
   Clicked:=False;
   While not Application.Terminated {and Visible} do begin
      Sleep(10); // CPU schonen
      Application.ProcessMessages;

      If Clicked then begin
         // Mach was anderes
         Break; // Oder Exit;
      end;
   end;
end;

procedure TForm1.ButtonClick(...);
begin
   Clicked:=True;
end;

Gesünder wäre es, wenn möglich nen Timer zu nehmen, oder es in der OnClick zu machen. :wink:

[TheMiller]

Ja Super!

Jetzt weiß ich auch, was Application.ProcessMessages bedeutet! Danke!

[Balu der Bär]

Mittels Sleep frierst du aber die ganze Anwendung ein, was überhaupt nicht von Vorteil ist. Gucke daher lieber nach Delay.

[TheMiller]

Schon klar, aber habs einfach so gelöst:

Delphi-Quellcode:

[...]
while not Continue do
    Application.ProcessMessages;
[nach dem Klicken]

Des war's schon *g*

[Brainshock]

Geilomat,

da hat aber mal einer die Programmierung mit Ereignissen verstanden. :wink:

[TheMiller]

??? :gruebel:

[Oxmyx]

Welchen Sinn ergibt es denn, die Programmausführung künstlich zu unterbrechen, bis ein Ereignis eintritt? Um genau das besser zu machen, gibt es doch Ereignisse überhaupt! Sprich: Die Funktion, die dein Programm ausführen soll, wenn z.B. ein Button gedrückt wird, verknüpfst du mit dem OnClick-Ereignis.

[TheMiller]

Das hat schon seinen Sinn. Denke mal an die Technik der Splash-Screens..

[Sunlight7]

Also für Splash-Screens hab ich ne andere Technik, da brauchts sowas nicht für.

Aber es kann schon mal (aber selten) vorkommen, das man um so eine (ungesunde) Programmierweise nicht herum kommt.