Lizenzabfrage vor Programmstart

[Jens Hartmann]

Ja, ich will dich auch nicht stören, hatte nur schon mal geantwortet. Habe es jetzt auch hinbekommen, glaube aber das ich einen Fehler in den Property´s habe. Das habe ich nämlich noch nicht so richtig verstanden.

Gelößt, habe ich das ganze jetzt mit Form.Visible.False und true
Und einer anschließenden FormHide abfrage!

siehe:

Delphi-Quellcode:

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

Delphi-Quellcode:

procedure TForm1.FormHide(Sender: TObject);
begin
  if FLizenznummer = True then
    begin
      Label7.Caption := 'GEHT DOCH';
    end;
end;

So Funktioniert es jedenfalls, ich denke nur das das nicht ganz sauber ist.

Gruß

Jens