Ponderea pe formularul TMemo. și TMainMenu. Stabilim proprietatea Aliniere în alClient la componenta întinsă pe toate formele de spațiu liber. Stabilim proprietatea scrollbars în ssBoth. și WordWrap la False. Și eliminați textul introdus în Memo1 defaul ștergând textul din liniile de proprietate.
Să faceți clic pe MainMenu1 de două ori - va apărea o fereastră. Acum, creați un meniu „File“. În ea elementele: "New", "Open", "Save", "Save As" benzi Divider (simbolul "-") și "Exit"
Se va instala comenzi rapide așa cum se arată în Figura 1. Tastele rapide sunt setate la SHORTCUT pentru proprietate
Fig. 1 - meniul "File"
În mod similar, creați meniul „Edit“:
Fig. 2 - meniul "Edit"
În mod similar, creați meniul „Format“:
Fig. 3 - meniul "Format"
Fig. 4 - Crearea unui eveniment onClick
Rețineți că strânsă și Form1.Close același lucru. pentru că Formularul este părintele numelui părintelui poate fi omisă.
Acum, după meniul selectați „Exit“ pentru a închide programul.
Realizare cuvânt folie
Sub "Format" selectați "Wrap":
Vom intelege ce facem: dacă ați setat deja modul de transfer în conformitate cu care îl eliminăm și a stabilit o bifă în N14. Și vice-versa.
Punerea în aplicare a "Save As".
Avem nevoie pentru a salva caseta de dialog de document. Noi folosim TSaveDialog componentă pe fila Dialoguri. Publica pe formular. Stabilirea de filtru, adică fișierele care vor fi afișate acest dialog. Trebuie să ne * .txt, adică, documente de tip text. Pentru a face acest lucru aveți nevoie pentru a găsi proprietatea Filtru și apăsați butonul. Va apărea o fereastră. Umple-l așa cum se arată în Fig. 5.
Acum, schimba DefaultExt proprietate * .txt. Aceasta este o extensie care vor fi adăugate la dosar.
Crearea unei proceduri pentru a salva fișierul. Introduceți acest cod imediat după.
Următoarea vyberaem în meniul "File" -> "Save As.". Acolo vom scrie:
Ce este acolo pentru a face și cum funcționează? Foarte simplu! Atunci când controlul utilizatorului pentru a selecta elementul de meniu „Save as“. Procedura se numește SaveAs, pe care le-am scris deja. Considerăm acum SAVEAS procedura. În cazul în care funcția Execute în TSaveDialog dialogul Salvare apare și în cazul în care utilizatorul face clic pe butonul de salvare, Execute funcția va reveni Adevărat Fals altceva. Dacă procedura returnează adevărat SaveToFile se va efectua. și anume salvați fișierul. În SaveDialog1.FileName stocate calea către fișierul în care utilizatorul specifică în dialogul.
Am introdus o FileWork variabilă globală. Acesta va stoca calea către fișierul în care utilizatorul este de lucru. Acest lucru este de a pune în aplicare „File“ -> „Save“. Nu uitați să-l declare în Var, în secțiunea înainte de punerea în aplicare. Trebuie să fie așa:
Punerea în aplicare a „Salvați“
Vyberaem "File" -> "Save". Și ne scrie:
Dacă un utilizator salvează un fișier deja în FileWork fi ceva stocat, nu în nici un caz, un „vid“. Dacă un stocat „“, adică Nimic nu a păstrat SAVEAS apel. Doar arată dialogul Salvare. În cazul în care FileWork variabilă nu este gol, apoi salvați fișierul în modul specificat în FileWork.
Punerea în aplicare a „Open“
În plus, există TSaveDialog TOpenDialog. Și dacă ai ști vreodată un pic limba engleză, ar fi dat seama deja că această componentă este concepută pentru a deschide fișierele.
Pune această componentă pe forma și modificați proprietatea de filtrare precum și în SaveDialog1.
În general, componentele TSaveDialog și TOpenDialog foarte asemănătoare. Dialogul deschis este numit ca - funcția Executare. care returnează Adevărat dacă utilizatorul dorește să deschidă fișierul.
Faceți clic pe "File" - "Deschideți"> scrie:
Rulați programul și încercați să F9. Dacă totul se face corect, ar trebui să funcționeze.
Punerea în aplicare a „Nou“
Faceți clic pe "File" -> "Create". scrie:
Aici totul este clar și fără explicații. Cu toate acestea, am explica: prima linie șterge FileWork, și anume programul nu va fi conștient de faptul că suntem într-un fel de fișier de lucru. A doua linie șterge Memo1.
Punerea în aplicare a funcțiilor din meniul „Editare“
Făcând clic pe meniul „Cut“:
Făcând clic pe meniul „Copiere“:
Potrivit meniul „Inserare“, faceți clic pe:
Punerea în aplicare a funcțiilor din meniul „Font“.
Vom avea nevoie de mai mult de o componentă - TFontDialog. Funcția de a apela este aceeași cu cea a TOpenDialog și TSaveDialog - Executare. Creați un eveniment făcând clic pe meniul „Font.“.
În cazul în care utilizatorul a aplicat modificările, proprietatea Font din Memo1 atribuie setarea fontului selectat de către utilizator. Acestea sunt stocate în proprietatea Font în FontDialog1.
Complet.
Partea principală a programului este scris. Sunt foarte puține. Avem nevoie pentru a face forma activă să apară în Object Inspector proprietăților sale, ci din cauza Memo1 care se întindea întregul formular este imposibil să facă acest lucru. Există mai multe opțiuni. Puteți selecta pur și simplu o formă în TreeView Object. Și puteți selecta Memo1, apoi țineți apăsată tasta Shift și faceți clic pe Memo1 din nou.
Deci, ați activat formularul. Schimbarea titlul ferestrei: în legendă tipul de proprietate „Notepad“. Poziția schimbare de proprietate pe poScreenCenter pentru a forma a apărut pe centrul ecranului.
Și, în final, se adaugă modulul XPMan la lista de module (secțiunea utilizări). Ar trebui să arate ceva de genul asta:
Descărcați codul sursă al programului
Lecția 7 - Learning componente TImage, TGroupBox, TRadioGroup