Also einfach nochmal zur Info,
Habe jetzt ein paar Breakpoint´s mehr gesetzt und dabei festgestellt, das der Wert TRUE zwar gesetzt wird. Zumindest läuft die Routine durch.
Delphi-Quellcode:
begin
Application.CreateForm(TForm1, Form1);
Form1.Lizenznummer := True;
Application.Run;
end
Aber beim Form OnShow ist der Wert TRUE nich in der Var Lizenznummer
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
begin
if Lizenznummer = true then
begin
Label7.Caption := 'TRUE';
end;
end;
Hier wird die if-Abfrage einfach Übersprungen
