Hallo Delphifreunde,
habe eine fertige Applikation mit mehreren tausend Zeilen.
Nun wollte ich ein kleines Fenster vor dessen Aufruf anzeigen, in welchem ich rechtliche Hinweise und einen Passwortzugang anzeigen wollte.
Ich habe das neue Formular als das Hauptformular definiert. Das Hinweisfenster wird auch angezeigt, allerdings zuerst ein anderer Hinweis von der Applikation, das die Datenbanken geöffnet sind und die Lizenz gültig ist. Dies sollte eigentlich erst nach der Quittierung des vorgeschobenen Fensters passieren.
Wenn der rechtliche Hinweis quittiert wird, geht dann das Fenster der Applikation nicht auf.
Wahrscheinlich habe ich einen grundsätzlichen Fehler begangen. Vielleicht kann mir jemand einen Hinweis geben.
Vielen Dank schon im voraus!
LingNeu
Delphi-Quellcode:
//Application a007 - als normale Form definiert
uses Windows, Messages, SysUtils,...,
first; //ist das richtig?
procedure TForm1.FormCreate(Sender: TObject);
//datenbanken öffnen
//abfrage nach der lizenz
//grundparameter einstellen
end;
// übriger code von der app
Delphi-Quellcode:
//vorgeschobenes Fenster für PW und rechtlichen Hinweis
//ist als MDIForm definiert
//first.pas
...
implementation
uses a007;
procedure TFormF.Button1Click(Sender: TObject);
begin
FormF.Close ;
Appform.Show;
end;