După ce am conectat biblioteca, constantele sunt inițializate și sunt declarate variabilele necesare. Acum, scopul lor, desigur, nu intelegi, dar in timpul scrierii codului totul se va clarifica. Acum creați scheletul programului. Va fi alcătuit din două cicluri repetate ... până când, în primul din care se va afișa meniul principal, iar în al doilea va fi verificat care element a fost selectat și codul corespunzător este executat:
Nu este nimic complicat. Variabila prov2 este o condiție în primul ciclu și atunci când valoarea sa este adevărată, primul ciclu se va termina și programul va fi finalizat. În primul ciclu, utilizând funcția CreateCommand, se creează o comandă OK pentru a face clic pe care va fi executată codul corespunzător elementului de meniu selectat. Apoi, afișăm un meniu cu titlul Creator în antet, după care, folosind funcția MenuAppendString, adăugăm elementele noastre în meniu. Apoi, adăugați comanda OK creată anterior la formular. Dacă există întrebări despre funcțiile și parametrii acestora, vă sfătuiesc să vă referiți la Ajutor-de la MidletPascal-I (mai bine vorbitor de limbă rusă). Totul este foarte bine și pictat în mod clar și nu ar trebui să apară întrebări. După afișarea comenzii, începe al doilea ciclu, în care, după o întârziere (făcută astfel încât utilizatorul să poată selecta elementul de meniu dorit), comanda selectată și elementul de meniu sunt bifate. Aceasta este punerea în aplicare a codului pentru fiecare dintre elementele de meniu, care vor trebui să fie scrise doar în locul elipsei, acum vom.
Să începem cu cele mai simple și să implementăm ieșirea din program selectând elementul "Ieșire". Următorul cod este scris în locul elipsei, astfel încât să fie executat în al doilea ciclu:
Prima linie este o verificare a elementului de meniu selectat și a comenzii care a fost apăsată și dacă opțiunea "Ieșire" a fost selectată și OK este apăsat, ieșim din program.
Acum, să examinăm codul care rulează când selectați "Despre" și "Ajutor". Ele sunt absolut identice, cu excepția informațiilor afișate pe ecran. Următorul cod este scris imediat după implementarea ieșirii:
La început, verifică, de asemenea, care dintre elementele de meniu a fost selectată și apoi este implementat codul dorit. Dacă a fost selectat "Despre (Ajutor)", atunci ștergem formularul (doar în caz) și, folosind funcția FormAddString, scoatem textul despre program (sau ajutor). Pentru a face ca noua linie să apară pe ecran, sunăm formularul (ShowForm), adică. ca atare, redesenarea. Apoi, vom crea și afișa o nouă comandă OK pe ecran. Și în buclă, există o întârziere, astfel încât utilizatorul să poată citi scrisul și să facă clic pe OK, ieșim din acest ciclu, adică Ieșiți din acest meniu din meniul principal.
Ei bine, draga coder, distracția începe. Acum vom lua în considerare crearea unui fișier nou: