Results 1 to 5 of 5

Thread: Scherm correct afsluiten

  1. #1

    Scherm correct afsluiten

    Hallo,

    Ik heb een applicatie gemaakt waar eerst een login en paswoord wordt gevraagd.
    Na correcte ingave opent een nieuw scherm, nl frmMain.
    Nu probeer ik het loginscherm te sluiten bij de onActivate van frmMain.
    Maar dan sluit mijn programma. Waarschijnlijk zie ik iets over het hoofd wegens mijn gebrekkige kennis.
    Enig idee hoe ik dit het beste aanpak?

    Alvast bedankt

    Lainkes

  2. #2
    Fornicatorus Formicidae VideoRipper's Avatar
    Join Date
    Mar 2005
    Location
    Vicus Saltus Orientalem
    Posts
    5,708
    Een login scherm is eigenlijk niet meer dan een gewoon form: het enige dat erop hoeft te staan zijn twee edits (gebruikersnaam en wachtwoord) en twee knoppen (ok en annuleren).

    De vraag die nu rest is: wanneer wil je dit scherm tonen?
    Tijdens het opstarten van je applicatie (gebruiker voert gegevens in, indien correct: rest van applicatie opstarten, incorrect: applicatie afsluten?
    Of moet je applicatie gewoon opstarten (mainform is dan zichtbaar), maar gebruiker kan nog niks totdat gebruiker is aangemeld?

    In de laatste optie kan een gebruiker ook tijdelijk even uitloggen (om koffie te halen bijvoorbeeld) om vervolgens later weer door te gaan met werken (nadat hij weer ingelogd is).

    Geef ons wat meer context, dan praat het wat makkelijker.
    TMemoryLeak.Create(Nil);

  3. #3
    Het inlogscherm wordt getoond.
    Na het inloggen moet het hoofdscherm getoond worden, en het loginscherm moet verdwijnen.
    Ik doe een frmLogin.close in het hoofdscherm, maar dan wordt ook het hoofdscherm gesloten.

  4. #4
    Fornicatorus Formicidae VideoRipper's Avatar
    Join Date
    Mar 2005
    Location
    Vicus Saltus Orientalem
    Posts
    5,708
    Oké, ik heb hier een hele basale (en snelle) oplossing voor je gemaakt.

    Voeg het formulier in de ZIP toe aan je project en pas de DPR van je project als volgt aan: PasswordForm.zip
    Delphi Code:
    1. program NAAM_VAN_JE_PROJECT;
    2.  
    3. uses
    4.   Windows,                                          // DIT TOEVOEGEN
    5.   Forms,
    6.   // ALLE ANDERE FORMS EN UNITS KOMEN HIER TE STAAN (TOEGEVOEGD DOOR DELPHI)
    7.   UfrmPassword in 'UfrmPassword.pas' {frmPassword}; // DIT TOEVOEGEN
    8.  
    9. {$R *.res}
    10.  
    11. var                                                 // DIT TOEVOEGEN
    12.   sUserName: string;                                // DIT TOEVOEGEN
    13.   sPassword: string;                                // DIT TOEVOEGEN
    14. begin
    15.   Application.Initialize;                           // REEDS AANGEMAAKT DOOR DELPHI
    16.   Application.MainFormOnTaskbar := True;            // REEDS AANGEMAAKT DOOR DELPHI
    17.   // HIER KOMEN ALLE APPLICATION.CREATEFORM REGELS TE STAAN (AANGEMAAKT DOOR DELPHI)
    18.   if TfrmPassword.Execute(sUserName, sPassword) and // DIT TOEVOEGEN
    19.      (sUserName = 'alain') and                      // DIT TOEVOEGEN
    20.      (sPassword = 'janquart') then                  // DIT TOEVOEGEN
    21.     Application.Run                                 // DEZE REGEL STOND ER AL
    22.   else                                              // DIT TOEVOEGEN
    23.     MessageBox(0, 'Ongeldige login opgegeven', 'Login fout', MB_IcONERROR or MB_OK); // DIT TOEVOEGEN
    24. end.

    En mocht het niet in één keer werken, dan heb ik ook een testprojectje voor je: NLDLogin.zip
    Last edited by VideoRipper; 26-Nov-21 at 17:27.
    TMemoryLeak.Create(Nil);

  5. #5
    Silly member NGLN's Avatar
    Join Date
    Aug 2004
    Location
    Werkendam
    Posts
    5,133
    Ter gedachtebepaling, als alternatief:

    Als het laden van het MainForm niet al te lang meer duurt nádat deze wordt weergegeven, zou je hem meteen kunnen verbergen zodra hij actief wordt. Op die manier kun je je login-form als tweede form aanmaken. Zie hier een simpel voorbeeldje daarvan.
    (Sender as TNLDUser).Signature := 'Groeten van Albert';

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •