Lizenzabfrage vor Programmstart

[Jens Hartmann]

Ja, das war leider nichts, wie du schon gesagt hast.
Ich habe jetzt nochmal einen Braekpoint in der Lizenzabfrage von Form1 gesetzt. Der wert ist eindeutig FALSE

Delphi-Quellcode:

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

Setzt ich aber in der Application meine Caption von Label7 direkt auf 'HALLO WELT' (TestLabel) macht Delphi das.

Delphi-Quellcode:

        if TFLizenz.ShowModal = mrOK then
          begin
            Application.CreateForm(TForm1, Form1);
            Form1.Lizenznummer := True;                  //Variable auf True
            Form1.Label7.Caption := 'HALLO WELT';        //Testtext in Label schreiben
            Application.Run;
          end

Ist doch seltsam oder.
Ich setzt auch in der Gesamten Form1 nirgendwo Lizenznummer anders.



MFG

Jens