Mai jos, setați butonul, scrieți cuvântul "Aplicați" pe el. Totul, odată cu desenul, se continuă programarea butonului. Dacă nu ați salvat proiectul într-un folder nou, faceți-l acum. Proprietatea Nume a formularului, ca de obicei, dă numele fMain, modulul este doar Main, întregul proiect este FormViewer.
Să revenim la buton. Faceți dublu clic pe el, creând o procedură de procesare a apăsării butonului.
Procedura este după cum urmează:
procedura TfMain.Button1Click (expeditor: TObject);
// procesați componenta BorderIcons
dacă CheckBox1.Checked apoi fMain.BorderIcons: = fMain.BorderIcons + [biSystemMenu]
altfel fMain.BorderIcons: = fMain.BorderIcons - [biSystemMenu];
dacă CheckBox2.Checked apoi fMain.BorderIcons: = fMain.BorderIcons + [biMinimize]
altfel fMain.BorderIcons: = fMain.BorderIcons - [biMinimize];
dacă CheckBox3.Checked apoi fMain.BorderIcons: = fMain.BorderIcons + [biMaximize]
altfel fMain.BorderIcons: = fMain.BorderIcons - [biMaximize];
dacă CheckBox4.Checked apoi fMain.BorderIcons: = fMain.BorderIcons + [biHelp]
altfel fMain.BorderIcons: = fMain.BorderIcons - [biHelp];
// procesați componenta BorderStyle
caz RadioGroup1.ItemIndex din
0. fMain.BorderStyle: = bsSizeable;
1. fMain.BorderStyle: = bsDialog;
2. fMain.BorderStyle: = bsNone;
3. fMain.BorderStyle: = bsSingle;
4. fMain.BorderStyle: = bsSizeToolWin;
5. fMain.BorderStyle: = bsToolWindow;
Ne vom ocupa de cod. Mai întâi vom procesa prima casetă de selectare CheckBox:
dacă CheckBox1.Checked apoi fMain.BorderIcons: = fMain.BorderIcons + [biSystemMenu]
altfel fMain.BorderIcons: = fMain.BorderIcons - [biSystemMenu];
Dacă acest flag este activat, verificat proprietatea returnează true, iar în cazul în care constanta [biSystemMenu] vor fi adăugate la proprietatea BorderIcons forma. Constantele, inclusiv cele încorporate, vor fi discutate mai târziu. Pentru moment, un lucru este important: dacă adăugăm această constantă, vom include această valoare în proprietatea BorderIcons.
Un exemplu este luat din directorul încorporat al Delphi. Plasați un cursor intermitent în cuvântul BorderIcons și faceți clic pe
În același mod, procesăm celelalte trei componente CheckBox.
Apoi, panoul RadioGroup este procesat. Deoarece poate fi activat un singur buton, proprietatea ItemIndex a acestui panou poate avea doar 6 valori, prin numărul de butoane: de la 0 la 5. Aici este cel mai convenabil să folosiți constructul de caz. În funcție de valoarea ItemIndex, atribuim valoarea proprietății BorderStyle a formularului cu butonul cu același nume. Asta e tot.
Salvați exemplul, compilați și vedeți cum funcționează programul. În funcție de valorile selectate, după ce faceți clic pe butonul "Aplicați", apariția formularului se modifică. În unele cazuri, dimensiunea sa poate fi schimbată, împingând mouse-ul, în unele - nu. În cazul în care BorderStyle este egal cu valoarea lui bsNone, atât blițul ferestrei dispare, cât și linia superioară a sistemului. Experiment. Acest utilitar poate fi util în viitor, dacă doriți să vedeți în prealabil ce setări să alegeți, astfel încât fereastra programului dvs. să arate exact așa. De exemplu, nu puteți schimba dimensiunea acesteia, astfel încât să nu apară butoane "Restrângere" și "Expand" etc.
Articole similare
Trimiteți-le prietenilor: