Hallo, habe eine eigene Form dafür gebastelt und diese in Project hinzufühen eingebaut.
Wenn ich die Reihenfolge in der Projectdatei wie folgt mache, gibt es eine Zugriffsverletzung
Delphi-Quellcode:
program EB_Pat_Foto_Project1;
uses
Forms,
EB_Pat_Foto_U in 'EB_Pat_Foto_U.pas' {Form1},
EB_Pat_Foto_Satz_U in 'EB_Pat_Foto_Satz_U.pas',
EB_Pat_Foto_SatzList_U in 'EB_Pat_Foto_SatzList_U.pas',
F_Meldung_U in 'F_Meldung_U.pas'{F_Meldung}
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TF_Meldung, F_Meldung);
Application.Run;
end.
Wenn ich den Code in der Projectdatei wie folgt mache,
zeigt er das Meldungsfenster bei Programmstart an und schliesst es dann auch nach einer Weile.
Nur öffnet dann das richtige Programmfenster
Form1 nicht.
Delphi-Quellcode:
program EB_Pat_Foto_Project1;
uses
Forms,
EB_Pat_Foto_U in 'EB_Pat_Foto_U.pas' {Form1},
EB_Pat_Foto_Satz_U in 'EB_Pat_Foto_Satz_U.pas',
EB_Pat_Foto_SatzList_U in 'EB_Pat_Foto_SatzList_U.pas';
F_Meldung_U in 'F_Meldung_U.pas'{F_Meldung}
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TF_Meldung, F_Meldung);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Wozu brauche ich das ?
Beim Start wird mein Programmfenster
Form1 erst sehr spät angezeigt,
da eine Menge Dateien (Bilder)in
Form1.Create dazu geladen werden müssen.
Damit der User merkt, dass das Programm auch wirklich gestartet hat,
soll "Bitte warten" ...
Was habe ich falsch gemacht, daß bei der 2. Variante nach Schliessen des Meldungsfensters das richtige Form nicht mehr startet?
(
F_Meldung.Show steht ganz am Anfang der
Form1.Create und
F_Meldung.Close ganz am Ende der
Form1.Create)
Vielen Dank für Hilfe
EB