Hallo,
ich schreibe gerade an ein "DebugWindow", das bestimmte Meldungen, die ich im Hauptprogramm einfüge in einem separaten Fenster anzeigt.
z.B.
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
