-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
22. Jan 2009
Das müsste daran liegen, weil du ja die Variante haben müsstest mit der Anweisung Form.Visible True und False
schau mal nach
begin
Application.CreateForm(TForm1, Form1);
Form1.Lizenznummer := True;
Form1.Seriennummer := True;
Form1.Visible := False;
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
22. Jan 2009
Dann muss ich das wohl so machen,
Also Funktioniert das Projekt von mir, bei dir aber auch nicht.
Naja, trotzdem vielen Dank für deine ganzen Bemühungen.
:thumb: :thumb: :thumb: :thumb: :thumb: :thumb:
MFG
Jens
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
22. Jan 2009
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:
procedure TForm1.FormShow(Sender: TObject);
begin
if Lizenznummer = true then
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
22. Jan 2009
Das ist mir klar.
Ich betätige momentan den BTmrOK manuell von Hand ohne die Abfrage.
Du musst nicht auf Software Lizenzieren klicken, sondern auf OK oben rechts.
Ich habe die Wahrheit Lizenz nur Simuliert OK=Lizenz DEMO=Keine Lizenz
MFG
Jens
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
22. Jan 2009
Hier bitte
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
22. Jan 2009
Sorry,
Also jetzt habe ich mir einen Wolf getippt und bekomme das ganze einfach nicht hin.
Ich habe natürlich gesehen, das Dein Projekt läuft.
Es ist bei mir defenitiv so, das ich den Wert ob Programm Lizenziert ist oder nicht erste nach Form Create geliefert bekomme und das Auswerten mit Form.Show oder so dann nicht klappt.
private
FLizenznummer :Boolean;
...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
21. Jan 2009
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:
if TFLizenz.ShowModal = mrOK then
begin
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
21. Jan 2009
Habe noch ein bißchen Rumgedocktert und muss feststellen, das es auch korrekt ist, das die Var Lizenznummer false ist.
Das Ereigniss OnShow oder OnAktivatet wird zwar nach On Create ausgeführt, aber die Application läuft erst weiter, wenn alle diese Erignisse ausgeführt sind. Daher wird natürlich auch erst der Wert TRUE nach OnShow gesetzt und somit ist meine Lizezabfrage immer FALSE..
Hm, ...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
21. Jan 2009
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
procedure TForm1.FormShow(Sender: TObject);
begin
if Lizenznummer = true then
begin
Label7.Caption := 'TRUE';
end;
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
21. Jan 2009
Der Inhalt von Lizenznummer ist "FALSE"
Ich versteh nur nicht warum.
Mit Lizenznummer ohne Form hatte ich auch probiert. Das war nur noch weil ich dachte vieleicht hilft das ja.
MFG
Jens
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
20. Jan 2009
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.
begin
Application.CreateForm(TForm1, Form1);
Form1.Lizenznummer := True;
Application.Run;
end
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
20. Jan 2009
Die Auswertung müsste aufjedenfall OK sein, da ich einen Button mit mrOK momentan Manuell ohne Lizenzabfrage betätige.
procedure TTFLizenz.Button1Click(Sender: TObject);
var
Lizenzkey : Boolean;
begin
Lizenzkey := false;
if Lizenzkey = true then
begin
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
20. Jan 2009
Lizenznummer ist in Form1 unter public eingefügt.
public
{Public declarations }
Datum :TDateTime;
Pfad :String;
Lizenznummer :Boolean;
Seriennummer :Boolean;
Registryeintrag :TRegistry;
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
20. Jan 2009
Nein, leider nicht. Habe ich Probiert.
procedure TForm1.FormShow(Sender: TObject);
begin
if Lizenznummer = true then
begin
Label7.Caption := 'TRUE';
end
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
20. Jan 2009
Ja, das Funtz soweit, nur das Problem und das habe ich leider vermutet. Das Form Create ist ja dann schon durchgeführt und somit kann ich darin natürlich nicht mehr nach dem Rückgabewert fragen.
Habe das jetzt schon mit Onshow Probiert, Funktioniert aber auch nicht
:gruebel:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
20. Jan 2009
Das mache ich auch so, aber entweder verstehe ich noch irgendwas nicht oder so.
Wenn ich mrOK zurückgebe, wir meine Programm gestartet.
Wenn nicht muss ich doch irgendwie das Programm als DEMO starten.
Und das habe ich halt versucht über mrCancel zu lösen.
:gruebel: :gruebel:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
20. Jan 2009
Wenn ich die Zeile auskommentiere, ist der Fehler nicht mehr da und mein Programm läuft.
Allerdings, hat meine Programm ja jetzt leider den Übergabe Wert das eine gültige Lizenz vorhanden ist nicht.
MFG
Jens
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
20. Jan 2009
Hallo nochmal zusammen,
Habe jetzt alles so gemacht und die Lizezabfrage soweit am laufen.
Sie Quellcode:
Application.Initialize;
if Lizenzkey = 'Lizenznummer: Demoversion' then
begin
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
20. Jan 2009
Ja gute Idee, werde ich heute Abend ausprobieren,
Gruß Jens
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
19. Jan 2009
Hallo nochmal,
Also habe jetzt gebastelt und alles soweit realisiert. Ich habe nur noch das Problemn die Variable aus der Application Programm Lizenziert an meine Hauptfenster zu übergeben.
Besser gesagt ich erstell in meiner Application eine Variable KeyLiz, diese Kann ich allerdings in meinem Hauptfenster nicht abfragen.
Vieleicht noch eine Idee.
Hier mein Quellcode:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
19. Jan 2009
Manchmal ist es besser man steht mal auf und geht an die frische Luft.
Man was habe ich mir gerade auf der Leitung gestanden.
Aber dafür habe ich ja wenigsten selber gemerkt das es nicht geht.
Hat denn vieleicht jemand einen Ansatz für mich.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
19. Jan 2009
Ich hoffe nicht das du was verpasst hast.
Ich habe deine Aussage mit Larsi nicht verstanden.
Wer oder was ist das.
Und wenn die andere Möglichkeit Funktionieren sollte, bekomme ich sie nicht hin.
MFG
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
19. Jan 2009
So leider ist das so eine Fehlanzeige, im OnShow kann man die Eigenschaft von Visible nicht verändern und im Oncreate kommt es zu der oben genannten Fehlerursache.
Habe leider momentan keinerlei Ideen.
Und das mit Larsi immer noch nicht verstanden
MFG
Jens
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
19. Jan 2009
Also, mit dem Form.Visible und Show gibt auf jedenfall folgende Fehlermeldung.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
19. Jan 2009
Was bitte heißt Larsi mal versucht.
Also ich bastel gerate an dem Form.Show und das Funtz mal noch nicht so richtig.