Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Störtebeker,
31. Jan 2008
Jo, xZise, :thumb: :thumb: (Ich glaube ich brauche nicht schreiben, was ich damit meine).
Es funzt super, nur musste ich den Code etwas umändern, als du es vorgeschlagen hast (minimal):
begin
Application.Initialize;
if FileExists(ExtractFilePath(ParamStr(0))+'...') then begin
Application.CreateForm(TForm2, Form2);
end
else begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Störtebeker,
31. Jan 2008
Danke, xZise für die deine Idee, wird dadurch möglicherweise auch mein Problem mit dem "Cannot change visible..." gelöst?
Dank der vielen hilfreichen Tipps funktioniert das mit der INI mitlerweile.
Das einzige was jetzt noch stört ist der besagte Fehler mit dem "Visible"
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Störtebeker,
31. Jan 2008
Erstmal Danke für die Hinweise. Jetzt aber nochmal eine Verständnisfrage:
Ich will ja aus der INI lesen, dass heißt, sie ist bereits vorhanden. Und trotzdem das "Ini.Create"??
Code:
procedure TForm2.Button1Click(Sender: TObject);
var
Ini: TIniFile;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Störtebeker,
30. Jan 2008
Danke, taaktaak. Jetzt startet das Programm schonmal, aber es scheint jetzt einen anderen Fehler zu geben, denn nun wird mir die folgende Fehlermeldung "vor die Augen geworfen":
Wat nu?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Störtebeker,
30. Jan 2008
Wenn ich die ":" vor den "=" wegnehme, setzt Delphi den Cursor vor das "=" und mit:
>> Mit den Doppelpunkten, kommt dieser Fehler bei dem "THEN BEGIN"
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Störtebeker,
30. Jan 2008
So, ich habe es jetzt etwas umständlich und nicht wirklich "perfekt" realisiert.
Ich habe die Loginform einfach etwas größer gemacht, als die Reg-Form, sodass die Reg-Form hinter der Loginform verschwindet und so nicht sichtbar ist.
Nun kommt die IF-Abfrage, bei der ich jetzt wieder scheitere:
Folgendes habe ich versucht, ohne erfolg:
procedure TForm2.Button1Click(Sender: TObject;);...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Störtebeker,
30. Jan 2008
Hi nochmal,
sry. für die vielleicht "eigentlich" einfache Frage:
Ich habe jetzt
procedure TForm1.FormActivate(Sender: TObject);
begin
if fileexists(ExtractFilePath(ParamStr(0))+'ua44.ini') then
Form2.show//Login-Fenster
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Störtebeker,
29. Jan 2008
Hallo,
also, das Erstellen der INI funzt, wie gewünscht. Nun setzte ich in das "OnCreate" Ereignis folgendes:
procedure TForm1.FormCreate(Sender: TObject);
begin
if fileexists(ExtractFilePath(ParamStr(0))+'ua44.ini') then
Form2.show//Login-Fenster
else
Form1.show;//Registrierungs-Fenster
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Störtebeker,
24. Jan 2008
Hi,
ich habe mir mal die Sachen mit den INIs durchgelesen und dachte mir,
dass ich so auch die Loginabrage für mein Programm realisieren könnte.
Folgendes Schema:
Beim ersten Start des Programmes kommt eine Abrage mit Benutzername
und Passwort. Wenn beide Felder gefüllt sind und auf Ok geklickt wird,
soll ein INI-Eintrag mit Benutzername und Passwort erstellt werden.
Beim nächsten...