Pausenfunktion

[OrakelvonDelphi]

Ich habe folgendes Problem: Ich möchte innerhalb eines Programmes einen "Pause-Button" einfügen. Dazu gibt es ein kleines Bild, welches angeklickt werden kann. Wenn man dieses anklickt, so soll das Programm pausieren, das heißt, die Timer nicht weiterlaufen, etc... Klick man nun wiederholt darauf, soll alles normal weitergehen.
Ich habe mich zu möglichkeiten wie delay usw. belesen aber ich erreiche nicht den gewünshten Effekt.

Vielen Dank für alle Ideen oder Ansätze im Voraus!

[Dalai]

Ich glaube, die wichtigste Frage ist, was da pausiert werden soll, denn davon hängt das Konzept ab, das dann in Code abgebildet wird. Timer umzuschalten (zu togglen), ist ja kein Problem:Timer.Enabled:= NOT Timer.Enabled;

MfG Dalai

[Valle]

Dann musst du den Timer beim Klick halt ausschalten?

[OrakelvonDelphi]

Danke für die schnelle Antwort! Daran habe ich auch schon gedacht aber dies müsste dann ja für alle Timer aufgelistet werden und einzeln geschrieben, Musikeinspielungen müssten gestoppt werden, etc...

Ich dachte mir, vielleicht kennt jemand eine Lösung, die einfach "alles" kurz anhält.
Sollte das natürlich nicht möglich sein, nutze ich dann die Methode, so wie ihr es geschrieben habt.

[OrakelvonDelphi]

Ah, ok Sir Rufo, das ist gut zu wissen. Nach solch einem "Zauberbefehl" hatte ich gesucht. Dann weiß ich jetzt, dass ich diese Suche beenden kann und lieber das ganze manuell versuche. Danke.

[Sir Rufo]

Zitat von OrakelvonDelphi:

Danke für die schnelle Antwort! Daran habe ich auch schon gedacht aber dies müsste dann ja für alle Timer aufgelistet werden und einzeln geschrieben, Musikeinspielungen müssten gestoppt werden, etc...

Ich dachte mir, vielleicht kennt jemand eine Lösung, die einfach "alles" kurz anhält.
Sollte das natürlich nicht möglich sein, nutze ich dann die Methode, so wie ihr es geschrieben habt.

Diese Zauberbefehle muss man sich selber schreiben und das kann zusammenfassend als "Programmieren" beschrieben werden

[OrakelvonDelphi]

Gut, danke. War wohl naiv, an solch einen "Zauberbefehl" zu denken...
Werde das jetzt selbst programmieren

[Der schöne Günther]

Die Timer hängen doch alle an einem Formular. Und alle Formulare hängen an Application . Du könntest doch einfach in einem Einzeiler sagen Für jedes Formular in der Anwendung: Für jeden Timer auf dem Formular: Timer.Enabled := not PauseIstAn;

[Uwe Raabe]

Zitat von OrakelvonDelphi:

Ich dachte mir, vielleicht kennt jemand eine Lösung, die einfach "alles" kurz anhält.

Definiere "alles". Wirklich alles bedeutet z.B. auch die Reaktion auf Klicks, auch wenn du dich dafür nur auf dein eigenes Programm beziehst. Ein solcher "Zauberbefehl" wäre z.B. Sleep(MaxInt); oder while true do; oder auch repeat until false; . Damit hängst du nämlich dein Programm für eine recht lange Zeitspanne auf.

Du willst aber wohl nicht alles anhalten, sondern nur etwas bestimmtes. Was das genau ist, weißt aber nur du. Also musst du es auch selbst programmieren.

[Perlsau]

Zitat von Uwe Raabe:

Du willst aber wohl nicht alles anhalten, sondern nur etwas bestimmtes. Was das genau ist, weißt aber nur du. Also musst du es auch selbst programmieren.

Genau

@OrakelvonDelphi:
Nehmen wir mal an, du hast eine lange dauernde Methode, sagen wir mal für das Einlesen einer großen Liste von Dateien in irgendwelche Records oder Datenbank-Tabellen. Diese Liste klapperst du normalerweise mit einer For-To-Schleife ab:

for i := 0 to z-1 do LeseDatei(Liste[i]); (LeseDatei ist deine Methode, um die Datei im übergebenen String einzulesen.)

Nun möchtest du, weil du nebenher was anderes am selben PC machen willst, eine Pausenfunktion für diese Einlese-Methode einrichten. Du setzt einen Button aufs Formular, den du z.B. Btn_PauseWeiter nennst. Nun genügen die Möglichkeiten der For-To-Schleife nicht mehr, du benötigst eine While-Schleife:

Delphi-Quellcode:

...
private
  Var
    Pause : Boolean;
    LeseId : Integer;
  
  procedure Einlesen(const Liste : TStrings);

implementation

procedure TForm1.Einlesen(const Liste : TStrings);
var
  i,z : Integer;
begin
  if not Assigned(Liste) then exit;
  z := Liste.Count;
  if z = 0 then exit;

  i := LeseId;
  LeseId := 1;
  Pause := false;
  Btn_PauseWeiter.Caption := 'Pause';

  while (i < z) and not Pause do
  begin
    LeseDatei(Liste[i]);
    inc(i);
    Application.ProcessMessages;
  end;

  // wenn durch Pause abgebrochen, dann aktuelle Position der Liste merken
  if Pause then LeseId := i else
  // sonst alles wieder zurücksetzen
  begin
    Btn_PauseWeiter.Caption := 'Einlesen';
    LeseId := 0;
  end;
end;

procedure TForm1.Btn_PauseWeiterClick(Sender: TObject);
begin
  If LeseId = 0 then Einlesen else
  begin
    if Pause then
    begin
      Btn_PauseWeiter.Caption := 'Pause';
      Pause := false;
    end else
    begin
      Btn_PauseWeiter.Caption := 'Weiter';
      Pause := true;
    end;  
  end;  
end;

Klickst du nun auf den Button "Pause", schaut dessen Klick-Methode nach, wie die Variable Pause gerade steht und reagiert entsprechend. Deine Einlese-Schleife fragt ebenfalls die Pause-Variable ab und reagiet entsprechend.