Lizenzabfrage vor Programmstart

[Jens Hartmann]

Das habe ich gemacht, aber bei mir bringt das nichts.

Der Wert von Lizenznummer, wird in der .dpr auch auf true gesetzt, aber wenn ich die Auswertung in OnShow wieder integriere, nimmt er Sie nicht an.

Wenn ich Breakpoints hier:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  if Lizenznummer = true then
  begin
  LaKunde.Caption := 'Hallo';
end;
end;

und hier:

Delphi-Quellcode:

begin
  TFLizenz := TTFLizenz.Create(Application);
     if TFLizenz.ShowModal = mrOK then
         begin
            Application.CreateForm(TForm1, Form1);
            Form1.Lizenznummer := True;
            Form1.Seriennummer := True;
            //Form1.Visible := False;
            //Form1.Visible := True;
            Application.Run;
          end
        else
          begin

sieht man auch das er erst OnShow ausführt und dann erst True setzt.