curs de începători în Delphi
Pentru aceasta folosim proprietatea Align a componentei noastre. Trebuie să-l instalați în alClient. Acest lucru ne va permite pentru a obține efectul dorit.
Ca componentă RichEdit în timpul instalării conține deja o linie de text (implicit este numele componentei nou create), mulți nu-l place. De aceea acum șterge de acolo. Pentru afișarea textului în componenta liniilor de proprietate responsabile de tip TStrings. E ceva de genul o serie de siruri de caractere, deoarece fiecare linie are numărul său propriu (număr începe de la zero,). Pentru a schimba, de exemplu, prima linie, ar trebui să scrie:
Este necesar de a veni cu orice nume de noul program și puneți-l sub forma unui antet. Pentru afișarea formei îndeplinește proprietatea Legendă, astfel încât chiar în Object Inspector, modificați valoarea. (Nu uitați să selectați forma înainte).
Acum, avem nevoie pentru a crea o bară de instrumente (bara de instrumente), care va fi amplasat comenzi butonul pentru comenzi rapide (cum ar fi Deschidere, Salvare, etc). Pentru această poziție, pentru a forma componenta panoului (fila Standart paleta de componente). Ștergeți proprietatea ei Legendă. Acum trebuie să faci la panoul este întotdeauna în partea de sus a ferestrei. Setați panoul de proprietăți - Alinierea ALTOP egale.
Tocmai am creat o platformă pe care va exista un buton. Post și pe panelului nostru. In timp ce ne debarasăm de două butoane (buton). proprietatea Caption a primului panou se face egal cu Open, al doilea - Save.
Că putem deschide și salva fișiere text, avem nevoie de mai mult de două componente este OpenDialog și SaveDialog. Ambele sunt pe fila Dialoguri. Acest componente non-vizuale și nu poate fi văzut în timp ce aplicația este, prin urmare, să le plaseze în orice loc convenabil de pe formular.
Ei bine, lucrările pregătitoare este terminat și ar trebui să obțineți ceva de genul:
Nu am pus întreaga imagine, deoarece ar lua o mulțime de spațiu, în afară nu este nimic interesant!
Procedura TForm1.Button1Click (Expeditor: TObject);
începe
Toate cod trebuie să fie plasat între începutul și sfârșitul. Acest cod este foarte simplu si arata ca acest lucru:
în cazul în care OpenDialog1.Execute atunci
RichEdit1.Lines.LoadFromFile (OpenDialog1.Filename);
Nu este nimic complicat. Dar dacă rulați programul și deschide dialogul de fișiere, selectați pornire nu este un fișier text, se va produce erori. Pentru a evita este necesar pentru a permite utilizatorului să selecteze numai fișiere text. Pentru a utiliza această caracteristică componentă filtru OpenDialog.
Adăugați un alt filtru pentru fișiere formatate (de exemplu, Rich Text Format). Pentru a face acest lucru, în al doilea rând în câmpul Nume de filtru, introduceți text formatat, și câmpul de filtrare - * .rtf. Daca doriti sa adaugati la filtru pentru orice tip de fișiere, este necesar să se scrie filtru în câmpul *. *
Figura 3. Fereastra de filtrare Editor.
Prin modul în care SaveDialog OpenDialog și componente este o DefaultExt caracteristică utilă. Această extensie este implicit. Este de dorit să se facă egală cu * .txt ambele componente.
Acum scrie procedura de economisire de fișier (apăsând butonul un al doilea tratament). Dublu-click pe butonul de-al doilea pentru a accesa procedura de procesare click pe butonul. Și pentru a scrie cod de genul:
în cazul în care SaveDialog1.Execute atunci
RichEdit1.Lines.SaveToFile (SaveDialog1.Filename);
Prin urmare, procedurile de procesare a codului click pe butonul de-al doilea este:
Procedura TForm1.Button2Click (Expeditor: TObject);
începe
în cazul în care SaveDialog1.Execute atunci
RichEdit1.Lines.SaveToFile (SaveDialog1.Filename);
se încheie;
Un cod al programului va arata astfel:
utilizări
Ferestre, Mesaje, SysUtils, Clase, Grafică, Controale, Formulare, Dialoguri,
StdCtrls, ComCtrls, ExtCtrls;
tip
TForm1 = class (TForm)
RichEdit1: TRichEdit;
PANOU1: TPanel;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Procedura Button1Click (Expeditor: TObject);
Procedura Button2Click (Expeditor: TObject);
privat
public
se încheie;
var
Form1: TForm1;
Procedura TForm1.Button1Click (Expeditor: TObject);
începe
în cazul în care OpenDialog1.Execute atunci
RichEdit1.Lines.LoadFromFile (OpenDialog1.Filename);
se încheie;
Procedura TForm1.Button2Click (Expeditor: TObject);
începe
în cazul în care SaveDialog1.Execute atunci
RichEdit1.Lines.SaveToFile (SaveDialog1.Filename);
se încheie;
ssNone - barele de defilare nu sunt afișate
ssBoth - au ambele benzi orizontale și verticale
ssVertical - numai benzi verticale
ssHorizontal - doar bara orizontală
Selectați ssVertical - acest lucru ne va oferi aspectul barei de defilare verticală atunci când editarea textelor mari.
Icon componenta FontDialog.
Pentru a face acest lucru, setați-o pe formular. În plus, vom avea nevoie de o alta și un buton pentru a apela caseta de dialog. Am pus pe forma și ea. Setați proprietatea sa Caption egală cu fontul. Și, în tratare a evenimentului onClick scrie:
în cazul în care FontDialog1.Execute atunci
RichEdit1.SelAttributes.Assign (FontDialog1.Font);
Acest cod va permite fontul cu o casetă de dialog pentru a modifica setările de font pentru fiecare paragraf, cuvânt, simbol, sau întregul text.
Figura 4 este o vedere a aplicării după adăugarea celui de al treilea buton și componenta FontDialog.
În proiectul nostru avem nevoie pentru a adăuga o mulțime de funcții, și, prin urmare butoanele, dar, din păcate, locul suntem limitate. Dar vom rezolva această problemă prin utilizarea de sistemul nostru de software și meniul pop-up.
Dezvoltarea în continuare a sistemului de credite din meniul nostru.
Așa cum am menționat la sfârșitul ultimului capitol este acum meniul principal Să ne dezvolta aplicația noastră! Pentru aceasta se folosește o componentă MainMenu, care se află în fila paletei componente Standart.
Icon componenta MainMenu.
În consecință inspector domeniu obiecte, de asemenea, schimba. Scrierea în proprietatea Caption a elementului selectat sunteți de acord pentru a schimba inscripția de pe ea. Vom avea nevoie de această structură de meniu:
Figura 18 prezintă o vedere din meniul nostru. Nu este greu pentru a crea!
Procedura TForm1.N2Click (Expeditor: TObject);
începe
Acum, între începutul și sfârșitul nevoie pentru a scrie cod. Dar există un mic truc: Desigur, ai putea copia codul de tratare a evenimentului OnClick pentru primul buton, dar nu este foarte convenabil și rațional. Imaginați-vă dacă aveți o mulțime de butoane și aceleași elemente de meniu. În primul rând dimensiunea programului crește de două ori, și în al doilea rând aveți nevoie dintr-o dată să se schimbe nimic. Apoi, este necesar să se rezolve toate codul corector.
Procedați la fel cu elementul de meniu „Font“ și „Salvați“.
Acum, scrie handler clic pe elementul de meniu „Exit“. Pentru a finaliza programul, pur și simplu apel Close metoda de formularul principal. Deoarece forma avem una, și este cea principală. Și totuși, în cazul în care proprietatea se referă la o formă, nu puteți scrie numele formularului în codul. Aceasta este, programul nostru poate fi închis după cum urmează:
Dacă ați fost atent la elementele de meniu sunt Editare Copiere, Lipire, și Cut. Punerea în aplicare a acestor funcții sunt foarte simple:
Modificați informațiile acolo pe placul dumneavoastră. Iar în handler evenimentului la butonul etichetat OK (butonul OK) a scrie un singur cuvânt: Închide;
Acum, du-te la formularul nostru principal, de a crea o tratare a evenimentului OnClick pentru un element de meniu Despre. Nu trebuie să scrie:
Acum, rulați programul. Veți vedea un mesaj care să ateste că formularul nu a declarat AboutBox la secțiunea utilizări. Răspunde pozitiv la solicitarea.
Aici este tot codul în întregime:
utilizări
Ferestre, Mesaje, SysUtils, Clase, Grafică, Controale, Formulare, Dialoguri,
StdCtrls, ComCtrls, ExtCtrls, meniuri;
tip
TForm1 = class (TForm)
RichEdit1: TRichEdit;
PANOU1: TPanel;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button3: TButton;
FontDialog1: TFontDialog;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
Procedura Button1Click (Expeditor: TObject);
Procedura Button2Click (Expeditor: TObject);
Procedura Button3Click (Expeditor: TObject);
Procedura N2Click (Expeditor: TObject);
Procedura N3Click (Expeditor: TObject);
Procedura N9Click (Expeditor: TObject);
Procedura N6Click (Expeditor: TObject);
Procedura N7Click (Expeditor: TObject);
Procedura N8Click (Expeditor: TObject);
Procedura N11Click (Expeditor: TObject);
privat
public
se încheie;
var
Form1: TForm1;
Procedura TForm1.Button1Click (Expeditor: TObject);
începe
în cazul în care OpenDialog1.Execute atunci
RichEdit1.Lines.LoadFromFile (OpenDialog1.Filename);
se încheie;
Procedura TForm1.Button2Click (Expeditor: TObject);
începe
în cazul în care SaveDialog1.Execute atunci
RichEdit1.Lines.SaveToFile (SaveDialog1.Filename);
se încheie;
Procedura TForm1.Button3Click (Expeditor: TObject);
începe
în cazul în care FontDialog1.Execute atunci
RichEdit1.SelAttributes.Assign (FontDialog1.Font);
se încheie;
Procedura TForm1.N2Click (Expeditor: TObject);
începe
button1.OnClick (auto);
se încheie;
Procedura TForm1.N3Click (Expeditor: TObject);
începe
button2.OnClick (auto);
se încheie;
Procedura TForm1.N9Click (Expeditor: TObject);
începe
button3.OnClick (auto);
se încheie;
Procedura TForm1.N7Click (Expeditor: TObject);
începe
RichEdit1.PasteFromClipboard;
se încheie;
Procedura TForm1.N8Click (Expeditor: TObject);
începe
RichEdit1.CutToClipboard;
se încheie;
Procedura TForm1.N11Click (Expeditor: TObject);
începe
AboutBox.showmodal;
se încheie;