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