[Delphi] create child form after registration TRUE

[Pat666]

Hi,
I have a multiform application.
What i want to do is, my main form can be opened normally without any enigma registration is active.
Until a user press a button that will call form 2. Is it possible ?

The code will be like this

Code: Select all

var Activation : Boolean;
...
...
if Activation = True then
  begin
    Application.CreateForm(TForm2, F2);
    F2.Parent := Form1.panel1;
...

BR

[Enigma]

Hi, yes, sure, that's possible.

There are two ways how you can do that:
1. on the Registration Panel - Registration Dialog, enable this dialog, however, disable the option Show if Unregistered.
Then, inside your code, you may show a registration dialog by calling the Enigma API function EP_RegShowDialog.
2. just create a custom registration dialog with custom fields. Register the application with the function EP_RegCheckAndSaveKey and check if the application is registered by the function EP_RegLoadAndCheckKey.