aplicație MainForm Delphi - forma care este creat în corpul principal al primei cereri.
Dacă aveți nevoie pentru a aranja accesul la cererea dumneavoastră, puteți afișa formularul de introducere a parolei pentru a intra în aplicație.
MainForm Delphi
Când creați un nou proiect Delphi, Form1 devine automat MainForm (Application obiect global). Pentru a aloca o altă formă de MainForm proprietate. Utilizați caseta de dialog Proiect fila Formulare | Opțiuni în timpul proiectării.
Când forma principală se închide, aplicația termină activitatea.
caseta de dialog pentru a introduce o parolă
Să creați mai întâi formularul principal al aplicației. Crearea unui nou proiect Delphi, care conține un formular. Această formă, în conformitate cu proiectul - formularul principal.
Dacă modificați numele formularului și de a salva pe template modulul ca main.pas. textul original este atât de (proiectul a fost salvat ca PasswordApp):
Acum, adăugați o a doua formă la proiect.
Prin proiectare, atunci când se adaugă a doua formă, aceasta va fi prezentă în lista Formulare Auto-Crearea pe caseta de dialog Opțiuni de proiect.
Nume a doua formă ca TLoginForm și scoateți-l din lista de formulare generate automat. Salvați modulul sub numele login.pas.
Adăugați o componentă etichetă. Editare și buton de pe formular.
Adăugați o metodă de clasa pentru a crea, de afișare și a închide caseta de dialog de introducere a parolei. Metoda Execute returneaza true. în cazul în care utilizatorul introduce parola corectă în dialogul de parolă.
Aici este codul sursă complet:
Execută metoda creează în mod dinamic un exemplu TLoginForm și afișează modal-l folosind metoda ShowModal.
ShowModal nu se întoarce până când forma este închisă. Atunci când formularul este închis, returnează ModalResult proprietate.
OnClick handler eveniment pentru LogInButton numește mrOk ModalResult proprietate. în cazul în care utilizatorul introduce parola corectă (Delfi în exemplul de mai sus). În cazul în care utilizatorul a introdus parola greșită, ModalResult setat la mrAbort (sau ceva de genul mrNone).
Setarea ModalResult. forma este închisă. Executare întoarce Adevărat. în cazul în care ModalResult egal mrOk. și anume Utilizatorul introduce parola corectă.
Nu creați MainForm înainte de conectare
Acum, trebuie să vă asigurați că forma principală nu a fost creat, în cazul în care utilizatorul a introdus parola greșită.
Codul sursă al proiectului este după cum urmează:
De notat utilizarea pentru a determina dacă este creată forma principală. Dacă Executare returnează false. MainForm nu a fost creat și aplicația este închisă, nici măcar nu începe.