Hallo!
Ich mache grad eine Konfiguration für mein Programm, die beim ersten Start aufgerufen wird.
Die Konfiguration umfasst mehere Schritte und ich habe es so gelöst:
Delphi-Quellcode:
procedure TInstall.FormCreate(Sender: TObject);
begin
I := 1;
Text.Caption := 'Herzlich Willkommen bei ServiceReport!!!'+chr(13)+chr(13)+'Ich bedanke mich bei ihnen das Sie sich für mein Programm interessieren.'+chr(13)+'Um jedoch das Programm nutzen zu können, müssen Sie noch ein paar Einstellungen vornehmen. Um eine Übersicht zu erhalten welche Schritte notwendig sind, klicken Sie bitte aus weiter...';
end;
procedure TInstall.OKBtnClick(Sender: TObject);
begin
case I of
1: begin
Text.Caption := 'Diese Schritte müssen Sie abarbeiten.'+chr(13)+chr(13)+chr(13)+' - Erstellen der Datenbank'+chr(13)+' - Synchronisieren der Benutzerdaten'+chr(13)+' - Anlegen des Programm-Benutzers'+chr(13)+chr(13)+chr(13)+'Um mit der Erstellung der Datenbank zu beginnen drücken Sie bitte auf "Weiter" und geben Sie den Namen der gewünschten Datenbank an.';
I := 2;
end;
2: begin
Main.CreateExecBtnClick(Self);
Text.Caption := 'Diese Schritte müssen Sie abarbeiten.'+chr(13)+chr(13)+chr(13)+' + Erstellen der Datenbank'+chr(13)+' - Synchronisieren der Benutzerdaten'+chr(13)+' - Anlegen des Programm-Benutzers'+chr(13)+chr(13)+chr(13)+'Um die Kundenbasis des Kassenprogrammes zu importieren klicken Sie bitte auf "Weiter" und wählen Sie den Pfad zu der Kunden.ard Datenbank aus.';
I := 3;
end;
3:begin
Main.SyncExecBtnClick(Self);
Label1.Visible := True;
Edit1.Visible := True;
Text.Caption := 'Diese Schritte müssen Sie abarbeiten.'+chr(13)+chr(13)+chr(13)+' + Erstellen der Datenbank'+chr(13)+' + Synchronisieren der Benutzerdaten'+chr(13)+' - Anlegen des Programm-Benutzers'+chr(13)+chr(13)+chr(13)+'Um den Programm-Benutzer anzugeben klicken Sie bitte auf "Weiter". Sie können später weitere Benutzer im Programm registrieren.';
I := 4;
end;
4: begin
Main.UsersQuery.SQL.Clear;
Main.UsersQuery.SQL.Add('SELECT * FROM Users WHERE 0=1');
Main.UsersQuery.Append;
Main.UsersQuery['User'] := Edit1.Text;
Main.UsersQuery.Post;
Main.UsersQuery.Close;
Label1.Visible := False;
Edit1.Visible := False;
Text.Caption := 'Diese Schritte haben Sie bearbeitet.'+chr(13)+chr(13)+chr(13)+' + Erstellen der Datenbank'+chr(13)+' + Synchronisieren der Benutzerdaten'+chr(13)+' + Anlegen des Programm-Benutzers'+chr(13)+chr(13)+chr(13)+'Die vorbereitung für den ersten Start des Programmes sind getroffen. Klicken Sie jetzt auf "Weiter" um das Haupt-Programm aufzurufen...';
I := 5;
end;
5: // Close;
end;
end;
nun.. swenn ich auf den weiter button klicke schliest sich die form ?!?!?
Aufrufen tue ich sie mit Showmodal... Kann mir jmd sagen, warum sich die Form schließt wenn man auf den weiter button drückt???