Es hat jetzt dank eurer Hilfe tatsächlich funktioniert.
Ich bin beeindruckt. Darauf wäre ich nicht gekommen.
Habe es jetzt ins Loaded geschrieben.
Delphi-Quellcode:
..
procedure TMyAppReg.Loaded;
begin
if Check = false then
begin
// Wenn Prüfung Fehlerhaft
if FRegShowDialog = false then
begin
// Anwendung einfach beenden
Application.Terminate;
end
else begin
// RegForm anzeigen
Application.ShowMainForm := false;
RegForm := TRegform.create(nil);
RegForm.showmodal;
end;
end;
end;
..
Vielen Dank nochmal!