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.