Programm anhalten und auf Taste/Button warten

[APP]

Hallo,

ich schreibe gerade an ein "DebugWindow", das bestimmte Meldungen, die ich im Hauptprogramm einfüge in einem separaten Fenster anzeigt.

z.B.

Delphi-Quellcode:

DebugM.ShowDebugMsg := 'Test ' + inttostr(i);

Nun möchte ich aber eine Art "Einzelschrittmodus" implementieren, d.h. erst nachdem der Weiter-Knopf gedrückt wurde soll das Hauptprogramm weitermachen.

• Zuerst dachte ich daran das DebugWindow modal anzuzeigen,
  das hat aber den Nachteil das das Fenster bis zum nächsten
  Aufruf verschwindet, das möcht ich aber nicht!
  (Ich habe auch versucht zur Laufzeit ein 2. Fenster zu erzeugen und
  als Parent ein Panel auf dem DebugWindow anzugeben und dieses Fenster
  Modal zu zeigen, leider funktionierte das Ganze nicht wie erwartet)
  
  
• Dann versuchte ich es mit einer Endlosschleife:

Delphi-Quellcode:

PROCEDURE TfDebugMemo.WaitForButton;
BEGIN
  REPEAT
    Application.ProcessMessages;
  UNTIL (FNext);
END;
// ----------------------------
PROCEDURE TfDebugMemo.SpeedButton1Click(Sender: TObject);
BEGIN
  FNext := True;
END;

Das hat den Nachteil, dass die Prozessorauslastung auf 100% geht und nicht sehr elegant ist.

Hat jemand einen bessere Lösung für mich? :?:
Vielleicht doch irgend etwas mit Modal, das gefällt mir sehr gut :mrgreen:

[mirage228]

Vielleicht ein Timer der alle X MSec überprüft ob FNext = True ist, kannst ja in das OnTimer schreiben:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  If FNext then
  begin
    // was auch immer, wenn FNEXT = True ist
  end else If not FNext then
  begin
    // wenn FNEXT = False ist...
  end;
end;

versuchs mal so

[APP]

@mirage228,

Leider funktioniert Deine Idee nicht, ich habe mich vielleicht auch unpräzise ausgedrückt:

Ich habe ein Hauptformular, dort rufe ich bei Bedarf das DebugWindow-Formular auf,
dieses soll (ja nach Einstellung) das Hauptprogramm solange anhalten, bis
im DebugWindow eine Taste gdrückt wurde.

Bei Deiner Lösung läuft das Hauptprogramm während des TimerEvents nebenbei weiter...

[Luckie]

Zeig das Debug-Fenster doch modal an, dann wartet der hauptthread so lange bis dein Fenster zurückkehrt.

[APP]

Hallo Luckie,

Zitat:

Zuerst dachte ich daran das DebugWindow modal anzuzeigen,
das hat aber den Nachteil das das Fenster bis zum nächsten
Aufruf verschwindet, das möcht ich aber nicht!
(Ich habe auch versucht zur Laufzeit ein 2. Fenster zu erzeugen und
als Parent ein Panel auf dem DebugWindow anzugeben und dieses Fenster
Modal zu zeigen, leider funktionierte das Ganze nicht wie erwartet)

:mrgreen:

[Luckie]

:shock: Uuups. :oops:

[APP]

Hallo,

nachdem der Osterhase so brav :mrgreen: war, habe ich mich noch einmal hingesetzt und eine Lösung für mein Problem gefunden.
Folgender Code "verhindert" das Schließen (besser: öffnet es noch einmal) eines modalen Fensters nach dem es geschlossen (sic!) wurde.

Delphi-Quellcode:

TYPE
   TForm2 = CLASS(TForm)
   ...
   PRIVATE
    { Private-Deklarationen }
   PUBLIC
      FUNCTION ShowModal: Integer; OVERRIDE;
    { Public-Deklarationen }
   END;


FUNCTION TForm2.ShowModal: Integer;
BEGIN
   // Auf alle Fälle verstecken, sonst Exception bei ShowModal
   Self.Hide;
   Self.Caption := 'Debug ON';
   INHERITED ShowModal;
   Result := ModalResult;
   Self.Show;
   Self.Caption := 'Debug OFF';
END;

Das Ganze funktioniert, aber nach dem Schließen "flackert" das Fenster kurz,
da es sich wieder neu aufbauen muß, das ist wenig elegant.

Daher untersuchte ich die Methode ShowModal etwas genauer, und starte einen neuen Thread In virt. Meth. wird stat. Meth. aufgerufen, diese Verdecken?.