Problem in der Procedur: Meldungsfenster kommt immer wieder

[Fussel9]

Hi hab folgendes Problem:

Delphi-Quellcode:

procedure TFLemon.TLemonTimer(Sender: TObject);
var Editor: TEditor;
begin
if a <> 1 then
  begin
    LLizenz.Visible:=True;
    a:=1;
  end
else
  begin
    if MessageDlg('Willst du selbst eine Grußkarte erstellen?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
    begin
      Close;
      Editor:=TEditor.create(self);
      Editor.Show;
    end;
  end;
end;

diese Procedur ruft sich immer wieder auf...

[Klaus01]

Hallo,

wozu gehöhrt denn "a"?
Wo hast Du es definiert?

Grüße
Klaus

[SubData]

Diese Prozedur gehört zu einem Timer.
Timer haben die Angewohnheit die Prozedur immer wieder auszuführen.
Manche könnten meinen, dass Timer genau dafür da sind

[Fussel9]

Zitat von SubData:

Diese Prozedur gehört zu einem Timer.
Timer haben die Angewohnheit die Prozedur immer wieder auszuführen.
Manche könnten meinen, dass Timer genau dafür da sind

aber sieh doch mal genauer hin:::> CLOSE; @Klaus -> Wird in FormCreate auf Null gesetzt globale Integer Variable

[himitsu]

der Timer stoppt erst, wenn die Form geschlossen wird.

also wenn man auf "JA" drückt.

wärend der MessageDialog angezeigt wird, werden auch WindowsBotschaften verarbeitet und demnach wird auch wärend dieser Zeit alle 3 Sekunden die Timerprozedur aufgerufen-

[Fussel9]

Und was kann ich dagegen tun?

[Uwe Raabe]

Zitat von Fussel9:

Und was kann ich dagegen tun?

Delphi-Quellcode:

procedure TFLemon.TLemonTimer(Sender: TObject);
var Editor: TEditor;
begin
if a <> 1 then
  begin
    LLizenz.Visible:=True;
    a:=1;
  end
else
  begin
    TLemonTimer.Enabled := false;  // verhindert ein erneutes Auslösen
    if MessageDlg('Willst du selbst eine Grußkarte erstellen?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
    begin
      Close;
      Editor:=TEditor.create(self);
      Editor.Show;
    end;
  end;
end;

[Frederika]

Fussel, was hast Du eigentlich genau vor? Es sieht aus wie eine künstliche Warteschleife, bevor der Nutzer die eigentliche Funktion nutzen darf, richtig?

Warum dann nicht einfach die eigentliche Funktion deaktivieren (...Enabled := False) und im Timer dann aktivieren und den Timer natürlich ausschalten. Wäre das nicht geradliniger und würde keine globalen Variablen verbrauchen?

[Fussel9]

Also, erst mal ein dickes
für eure Hilfe


aber....
die offensichtlichste Lösung hatte ich mal wieder übersehn...:

Zitat:

was hast Du eigentlich genau vor?

Es handelt sich dabei un ein fenster, das drei Sekunden lang angezeigt wird bevor man das Programm benutzen kann, das ist schon richtig...
Was macht man denn nur - wenn man 3 sekunden nur dieses Fenster sehn soll...

klar: statt in den Timer reinzuschreiben(der sich auf dem Fenster befindet das aufgerufen wird) und den zu Enablen - Disablen schreiben wir es da hin, wo das fenster aufgerufen wird!
Statt Form2.Show;
Form2.ShowModal;
Und schon sind alle meine Probleme gelösst , denn bis 'Form2' wieder geschlossen wird geht es nicht weiter.

im Klar-/Quell- Text:--> UMain

Delphi-Quellcode:

    self.hide;
    Form2:=TForm2.Create(self);
    Form2.ShowModal;
        if MessageDlg('Willst du selbst eine Grußkarte erstellen?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
          begin
            Editor:=TEditor.create(self);
            Editor.Show;
          end
        else
        begin
          Application.terminate;
        end;
    end;

--> UForm2

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
begin
a:=0;
end;

procedure TForm2.TFormTimer(Sender: TObject);
begin
if a <> 1 then
  begin
    Label.Visible:=True;
    a:=1;
  end
else
  begin
    Close;
  end;
end;

Und das ganze mit der globalen variable habe ich ja nur, weil ich nicht weiß wie ich sonst abfragen soll, ob die Prozedur schon einmal durchlaufen wurde...