Jeleníti meg a jelszó beviteli ablak előtt fut a fő formája

MainForm Delphi alkalmazás - a formában, hogy jön létre a fő szerve az első kérelem.

Ha kell, hogy gondoskodjon a hozzáférést a kérelmet, akkor megjeleníti az űrlapot a jelszó megadása után, hogy jelentkezzen be a kérelmet.

MainForm Delphi

Amikor létrehoz egy új Delphi projekt Form1 automatikusan válik MainForm (globális objektum alkalmazás). Ahhoz, hogy hozzá egy másik formája az ingatlanok MainForm. Használja a Forms fülön Project párbeszédablak | Lehetőségek a tervezés során.

Amikor a fő formája bezárul, az alkalmazás befejezi a munkáját.

Párbeszédablak egy jelszót kell megadni

Nézzük először létre a fő alkalmazási forma. Hozzon létre egy új Delphi project, amely tartalmaz egy űrlapot. Ez a forma, összhangban a projekt - a fő formája.

Ha megváltoztatja a nevét az űrlapot Megadott és mentse a modul main.pas. Az eredeti szöveg így (a projekt mentett PasswordApp):

Most adjunk hozzá egy másik formája a projekthez.

A design, amikor a második formát adunk hozzá, jelen lesz az Auto-Create Sablonokban a Project Options párbeszédablak.

Nevezze meg a második alakot, mint TLoginForm, és távolítsa el a lista automatikusan generált formák. Mentse el a modul néven login.pas.

Add a Label komponenst. Szerkesztése és Button a forma.

Add módszer az osztály létrehozására, megjelenítésére és zárja be a jelszó beviteli párbeszédablak. Az Execute eljárás True. ha a felhasználó megadja a helyes jelszót a jelszó párbeszédablak.

Itt a teljes forráskód:

Execute eljárás dinamikusan létrehoz egy példányt TLoginForm és a modális kijelzők használatával ShowModal módszerrel.

ShowModal nem tér vissza, amíg a forma zárva van. Az űrlap le van zárva, akkor visszatér ModalResult tulajdon.

Onclick eseménykezelő az LogInButton nevezi mrOk ModalResult tulajdon. ha a felhasználó megadja a helyes jelszót (delphi a fenti példában). Ha a felhasználó rossz jelszót, ModalResult állítva mrAbort (vagy valami hasonló mrNone).

Beállítása ModalResult. formájában van zárva. Végrehajtás True. ha ModalResult egyenlő mrOk. azaz A felhasználó megadja a helyes jelszót.

Ne hozzon létre MainForm előtt bejelentkezési

Most kell, hogy győződjön meg arról, hogy a fő formája még nem hozták létre, ha a felhasználó rossz jelszót.

A forráskód a projekt a következő:

Figyeljük meg a annak meghatározására, hogy a fő formája jön létre. Ha Execute False. MainForm nem jött létre, és az alkalmazás zárva van, nem is indul el.