Entwickler-Ecke
Sonstiges (Delphi) - In der Prozedure "TForm1.FormCreate" form1 schließ
Snippy - Mi 16.10.02 18:03
Titel: In der Prozedure "TForm1.FormCreate" form1 schließ
Hi!
Ich möchte gerne in der Prozedure "TForm1.FormCreate"
eine Aktion durchführen und danach form1 automatisch schließen lassen, doch bei den Befehlen " close" und " form1.close" tut sich nicht!
Was kan ich tun???
DeCodeGuru - Mi 16.10.02 18:42
setzt mal deine "Schließ"-Anweisung in das OnShow oder OnActivate-Ereignis. Dann müsste es funktionieren.
Snippy - Mi 16.10.02 18:44
Das hab ich mir auch schon gedacht, aber es sollen ja noch aktionen ausgeführt werden, bevor form1 geschlossen wird!!!
DeCodeGuru - Mi 16.10.02 18:50
ja, die Aktionen führst du in dem OnCreate-Ereignis aus und die Form kannste dann wieder im OnActivate-Ereignis schließen.
Das OnActivate und das OnShow-Ereignis werden nach dem OnCreate-Ereignis "ausgeführt".
Snippy - Mi 16.10.02 19:22
kann ich da auch einen if-then satz reinschreiben???
mars - Mi 16.10.02 19:46
türlich, das ist eine ganz normale prozedur...
Snippy - Mi 16.10.02 20:03
NEEE!
Dabei schließt er das auch nicht!!!
Könnte es nicht gehen, wenn ich sag, dass das Beenden Button gedrückt werden soll????
Aber wie latet der Sourcecode???
Das soll nachher so sein:
Wen eine bestimmte Datei im Verzeichnis des Programms ist, dann soll der ohne Knopfdruck das Programm beenden aber zuvor eben noch eine Aktion in Form1create ausführen!
Anonymous - Mi 16.10.02 20:18
Versuch mal mit
Mit Close kannst du das Formular garnicht schließen, weil das Formular noch garnicht erstellt wurde. OnShow und OnActivate sind auch Shit, da sie öfters als nur ein mal aufgerufen werden können.
Alternativ und mit etwas Vorbehalt kann man auch
Quelltext
1:
| Application.Terminate; |
nehmen. Das Problem mit Terminate ist, daß sich das ganze noch etwas hinziehen kann bis das Programm reagiert.
Snippy - Mi 16.10.02 21:37
Jetzt gehts :D
Vielen Dank!
CYA
Steffer - Do 17.10.02 16:15
Das klingt schon ein bischen abenteuerlich ...
Warum prüfst du nicht vor der Erzeugung, ab die Datei existiert?
Quelltext
1:
2:
3:
4:
5:
6:
| if not FileExists('C:\123.txt')
then begin
Application.CreateForm(TForm1, Form1);
.....
end
else .... |
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!