Problem in der Procedur: Meldungsfenster kommt immer wieder

[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...