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