Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Form nicht anzeigen (https://www.delphipraxis.net/133407-form-nicht-anzeigen.html)

beginner_begin 1. Mai 2009 13:22


Form nicht anzeigen
 
Hallo alle zusammen,

vor dem Start der Anwendung möchte ich eine "Register-Form" (frmMain) vorschalten, die prüft, ob die Software bereits registriert ist und falls nicht, wie der aktuelle Status der Demophase ist. Je nach Stand der Demo-Version bzw. Eingabe der "Lizenz-Daten" wird die Anwendung gestartet oder eben nicht.

Die Register-Form übergibt:
Delphi-Quellcode:
ModalResult := mrOK; // starte testphase
bzw.
ModalResult := mrAbort; // demo abgelaufen oder falsche lizenzdaten
Das Programm:
Delphi-Quellcode:
Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'mein test';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TfrmMain, frmMain);
  frmMain.ShowModal;
  if frmMain.ModalResult = mrOk then begin
  frmMain.Close;
  Application.Run;
end else begin
  Application.MessageBox('You are not authorized to use the application.');
  end;
Soweit funktioniert es auch wie gewünscht.
Mein Problem ist folgendens:
Wenn nun bereits die korrekten Lizenzinformationen in der Registry gespeichert worden, möchte ich die "Register-Form" nicht mehr anzeigen lassen, sondern sofort die Anwendung starten.
Wie bekomme ich das hin?

Schönen 1. Mai und beste Grüße
Susanne

mkinzler 1. Mai 2009 13:24

Re: Form nicht anzeigen
 
Suche mal nach Splash-Form. Eine solc könntehest du entsprechend anpassen

beginner_begin 1. Mai 2009 14:23

Re: Form nicht anzeigen
 
Sorry, ich habe es ja versucht aus einer Kombination von Splash- / Login-Form abzuwandeln, aber nun hänge ich leider fest und kommen nicht weiter.
Meine Frage:
Wenn kann ich die frmMain (nach der Registrierungsüberprüfung) dazu bewegen, ohne Anzeige des Fensters automatisch "ModalResult := mrOK" zurückzugeben.
Delphi-Quellcode:
if isregistered()
ModalResult := mrOK;

Apollonius 1. Mai 2009 14:28

Re: Form nicht anzeigen
 
Warum erledigst du das nicht außerhalb? IsRegistered kannst du doch auch im Hauptprogramm aufrufen und dann gegebenenfalls auf das Login-Formular verzichten.

beginner_begin 1. Mai 2009 14:42

Re: Form nicht anzeigen
 
Ich weiss leider nicht genau, wie Du das meinst.
Nach Ablauf der Demophase (30 Tage) soll das Hauptprogramm nicht mehr gestartet werden können.
Damit der Anwender nach Ablauf der Demophase seine Lizenzdaten eingeben kann, benötige ich das Login-Formular (vor dem Start der Anwendung) oder nicht?


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:49 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz