Button. Proprietăți și evenimente. Funcțiile dialogurilor de mesaje. În Windows, precum și în Delphi, există multe butoane care au proprietăți și scopuri diferite. În această lecție, să examinăm cele mai utilizate butoane. Prima - cea mai frecventă - este situat în fila Standard a componentei Palette - Este cunoscut faptul că punerea în aplicare a oricărui program este însoțit de o varietate de mesaje, acesta poate fi mesaje de eroare, avertismente, informații, etc. Există mai multe funcții pentru afișarea mesajelor pe ecran. Utilizarea la evenimentul nostru la apăsarea cel mai simplu mesaj (funcția ShowMessage) - afișajul arată panoul care se spune „apăsați 1“:
procedura TForm1.Button1Click (expeditor: TObject);
începe
nbsp nsp ShowMessage ('Apasati butonul 1');
se încheie;
.
Aceste componente sunt localizate în fila Dialoguri din paleta de componente. Instalați aceste componente pe formular oriunde. Aceste componente nu sunt afișate atunci când aplicația este pornită, dar sunt numite numai din program în timpul rulării.
OpenDialog - este destinat accesului la fișiere de pe discuri pentru deschidere și SaveDialog - dimpotrivă, pentru salvarea fișierelor pe un disc. Dialogurile, înainte de utilizare, ar trebui configurate, adică trebuie să specificați o extensie a numelui fișierului pentru a căuta atunci când deschideți și să adăugați automat la numele fișierului atunci când salvați. Selectați mai întâi OpenDialog, iar în proprietatea Filter, faceți clic pe butonul mic. Fereastra "File Editor" va apărea pe ecran
Acum trebuie să creați agenți de procesare a evenimentelor. Creați un handler pentru butonul OpenButton:
procedura TForm1.OpenBtnClick (expeditor: TObject);
începe
nbsp nbspif opendialog1.execute apoi // Afișați dialogul de deschidere a fișierului și dacă este executat (apăsat butonul "OK"), atunci:
nbsp nbsp memo1.lines.loadfromfile (opendialog1.filename); // Încărcați liniile din fișier în notepad-ul creat de noi
se încheie;
Și nu uitați să creați un handler pentru butonul SaveBtn:
procedura TForm1.SaveBtnClick (expeditor: TObject);
începe
nbsp nbsp dacă SaveDialog1.execute apoi // Afișează dialogul de salvare a fișierului și dacă este terminat:
nbsp nbsp memo1.lines.savetofile (nume salvat1); // Salvați liniile notepad din fișier
se încheie;
Rulați aplicația și asigurați-vă că acum putem salva fișierele text pe care le creăm, precum și descărcarea fișierelor text disponibile de pe disc. De fapt, ne-am dovedit, destul de primitiv, dar totuși un notebook.
Articole similare
Trimiteți-le prietenilor: