Form Tutorial/fi: what changed

Revision 3 to 4. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		Lyhyt esittely lomakkeiden käytöstä Lazaruksessa.
2	2
3		-	~~## Contents~~
4		-
5		-	* 1 Mikä on lomake?
6		-	* 2 Ensimmäinen GUI-sovellus
7		-	* 3 Kahden lomakkeen käyttö
8		-	* 3.1 Show ja ShowModal-erot
9		-	* 4 Kaksi lomaketta, jotka voivat kutsua toisiaan
10		-	* 5 Muuttujien siirtäminen muihin lomakkeisiin
11		-	* 6 Muut lomakkeeseen liittyvät aiheet
12		-	* 6.1 Käytä toista lomaketta päälomakkeena
13		-	* 6.2 Tallenna lomakkeen ominaisuudet ohjelman lopussa
14		-	* 7 Luo lomake dynaamisesti
15		-	* 7.1 Luo Lazaruksessa suunniteltu lomake dynaamisesti
16		-	* 7.2 Uuden lomakkeen luominen dynaamisesti
17		-	* 8 Katso myös
18		-
19	3		## Mikä on lomake?
20	4
21	5		Lomake (luokka [[TForm/fi\|TForm]]) edustaa ikkunaa tai valintaikkunaa, joka on [[Application\|sovelluksen]] käyttöliittymä. Säiliö, johon kaikki muut [[LCL Components\|komponentit]] (esim. Painikkeet, label:t, muokkauskentät, kuvat jne.) lisätään.
22	6
23	7		## Ensimmäinen GUI-sovellus
24	8
25	9		Lazaruksen onnistuneen asentamisen ja uuden sovelluksen käynnistämisen jälkeen luodaan tyhjä lomake. Se voidaan luoda uuden [[Overview of Free Pascal and Lazarus\|GUI-sovelluksen]] päävalikosta -> Projekti -> Uusi projekti -> Sovellus ja paina OK painiketta.
26	10
27	11		Näin luotiin uusi, täysin toimiva lomake projekti:
28	12
29	13		[![Form1 Designmodus.png](/wiki-images/7/73/Form1_Designmodus.png)](</File:Form1_Designmodus.png>)
30	14
31	15		Uusi projekti voidaan käynnistää painamalla `F9`-näppäintä tai klikkaamalla hiirellä päävalikon kuvaketta [![Start.png](/wiki-images/b/b8/Start.png)](</File:Start.png>) (tai valitaan päävalikosta: Suorita -> Suorita). Projekti kootaan ja suoritetaan.
32	16
33	17		Mitään todella jännittävää ei tapahdu. Lomake (Form1) muuttuu hieman ulkonäöltään ja rasteriruudukon pisteet (joita käytetään yksittäisten komponenttien paikannusapuna) katoavat (niin kauan kuin ruudukon pisteet ovat näkyvissä, tiedät myös, että se on edelleen suunnittelutilassa):
34	18
35	19		[![Form1 Designmodus.png](/wiki-images/7/73/Form1_Designmodus.png)](</File:Form1_Designmodus.png>) -> [![Form1 Runmodus.png](/wiki-images/d/dc/Form1_Runmodus.png)](</File:Form1_Runmodus.png>)
36	20
37	21		Seuraavaksi voidaan asettaa [[TButton/fi\|TButtonin]] lomakkeelle. Tätä käytetään myöhemmin mahdollistamaan toisen lomakkeen avaaminen:
38	22
39	23		Valitaan TButton [[Component Palette/fi\|komponenttipaletin]] [[Standard tab/fi\|Standard]]-välilehdeltä.
40	24
41	25		[![TButtonStandardpalette.png](/wiki-images/4/49/TButtonStandardpalette.png)](</File:TButtonStandardpalette.png>)
42	26
43	27		ja klikataan lomaketta: Nyt siinä on painike, joka on sijoitettu Form1: een, jonka nimi ja kuvateksti on "Button1".
44	28
45	29		Jotta tämä painike voisi tehdä jotain, niin on ilmoitettava, että aiotaan tehdä jotain, kun sitä klikataan. Tätä voidaan pitää yksinkertaisena tapahtumana. Tätä varten tarvitaan [[Event order\|tapahtuman käsittelijä]], jota kutsutaan klikkauksen jälkeen. Hiiren klikkauksen tapahtumakäsittelijä on melko helposti saavutettavissa kaksoisklikkaamalla Button1-painiketta (tai komponenttimuokkaimessa), valitaan Button1 -> Tapahtumat-välilehti -> OnClick ja klikataan sitten [...] -painiketta. Tämä luo aliohjelman procedure TForm1.Button1Click koodieditoriin, jota kutsutaan aina ([[runtime\|ajonaikaisesti]], ei suunnittelun aikana), kun Button1:stä klikataan:
46	30
47	31		[![NeuesProjekt2.png](/wiki-images/9/9b/NeuesProjekt2.png)](</File:NeuesProjekt2.png>)
48	32
49	33		Jotta sovellus voi tehdä jotain Button1:n klikkaamisen jälkeen, lisätään koodia [[Begin/fi\|Begin]] ja [[End/fi\|End]] lauseiden väliin aliohjelman rungoon procedure TForm1.Button1Click näin:
50	34		```
51	35		procedure TForm1.Button1Click(Sender: TObject);
52	36		begin
53	37		Caption:='My first Form'; //Lomakkeen Form1 otsikko muuttuu
54	38		//or
55	39		Button1.Caption:='Hello'; //Painikkeen teksti muuttuu
56	40		end;
57	41		```
58	42
59	43		Suorita lomake nyt painamalla `F9` ja huomaa, että kun painiketta klikataan niin lomakkeen otsikko ja painikkeen otsikko muuttuvat.
60	44
61	45		Nyt voidaan kokeilla hieman ja oppia käyttämään standardikomponentteja. Alussa suosittellaan kokeilemaan seuraavia komponentteja:
62	46
63	47		[[TButton/fi\|TButton]] \| [![tbutton.png](/wiki-images/b/b2/tbutton.png)](</File:tbutton.png>)
64	48		---\|---
65	49		[[TLabel/fi\|TLabel]] \| [![tlabel.png](/wiki-images/3/3a/tlabel.png)](</File:tlabel.png>)
66	50		[[TEdit/fi\|TEdit]] \| [![tedit.png](/wiki-images/0/07/tedit.png)](</File:tedit.png>)
67	51		[[TMemo/fi\|TMemo]] \| [![tmemo.png](/wiki-images/f/f3/tmemo.png)](</File:tmemo.png>)
68	52		[[TToggleBox/fi\|TToggleBox]] \| [![ttogglebox.png](/wiki-images/5/5e/ttogglebox.png)](</File:ttogglebox.png>)
69	53		[[TCheckBox/fi\|TCheckBox]] \| [![tcheckbox.png](/wiki-images/3/3c/tcheckbox.png)](</File:tcheckbox.png>)
70	54		[[TRadioButton/fi\|TRadioButton]] \| [![tradiobutton.png](/wiki-images/e/ef/tradiobutton.png)](</File:tradiobutton.png>)
71	55		[[TListBox/fi\|TListBox]] \| [![tlistbox.png](/wiki-images/7/7f/tlistbox.png)](</File:tlistbox.png>)
72	56		[[TComboBox/fi\|TComboBox]] \| [![tcombobox.png](/wiki-images/b/be/tcombobox.png)](</File:tcombobox.png>)
73	57		[[TScrollBar/fi\|TScrollBar]] \| [![tscrollbar.png](/wiki-images/0/05/tscrollbar.png)](</File:tscrollbar.png>)
74	58
75	59		Lisää muita hyödyllisiä tietoja on [[Lazarus Tutorial/fi\|Lazarus Tutorial opetussivulla]].
76	60
77	61		## Kahden lomakkeen käyttö
78	62
79	63		Tässä nähdään, kuinka voidaan käyttää useita lomakkeita projektissa. Tässä esimerkissä luodaan vain kaksi lomaketta, Form1 (päälomake) ja Form2, mutta prosessi on identtinen lisälomakkeiden osalta.
80	64
81	65		Päälomakkeella on painike, joka klikkaamalla avataan uusi lomake. Uusi lomake saa myös painikkeen, jota klikkamalla sulkee tämän uuden lomakkeen ja palaa takaisin päälomakkeeseen.
82	66
83	67		Jos ollaan tehty ensimmäinen opetusohjelma: [[Form Tutorial/fi\|Ensimmäinen käyttöliittymäsovellus]], niin on poistettava koodi aliohjelmassa procedure TForm1.Button1Click lauseiden begin ja end väliltä. Muutoin on luotava uusi projekti (sovellus), tuotava painike lomakkeelle ja luotava OnClick-tapahtumakäsittelijä tälle painikkeelle.
84	68		Klikkaa uutta painiketta, jos halutaan kirjoittaa painikkeen Caption ominaisuuteen (näkyvä teksti painikkeella). Tämä voidaan tehdä valitsemalla painike (klikkaa sitä kerran) ja komponenttimuokkaimessa valisemalla Ominaisuudet-välilehti -> ja kirjoittamalla Caption ominaisuuteen teksti "Avaa Lomake2" tai "Open Form2".
85	69
86	70
87	71		[![Objektinspektor.png](/wiki-images/5/52/Objektinspektor.png)](</File:Objektinspektor.png>)
88	72
89	73		Klikkaa päävalikossa Tiedosto -> Uusi lomake, jos halutaan lisätä toinen lomake (Form2) projektiin. Sijoitetaan painike (Button1) Form2: een ja luodaan siihen OnClick-tapahtumankäsittelijä. Muuta tämän painikkeen Caption ominaisuuden teksti "Sulje" (tai "Close").
90	74
91	75		Nyt projektissa on kaksi lomaketta, joista jokainen voidaan valita ja näyttää päävalikossa Projekti -> Lomakkeet (tai näppäinyhdistelmällä `⇧ Shift` \+ `F12`). Vaihtoehtoisesti voidaan valita käännösyksikön välilehti lähdekoodieditorissa ja käyttää sitten `F12`-näppäintä vaihtamaan koodieditori ja lomakkeen suunnittelun välillä vastaavan käännösyksikön lomakkeella.
92	76
93	77		Siirrytään [[source code editor\|lähdekoodieditorissa]] Form1:tä vastaavaan [[Unit/fi\|käännösyksikköön]] (Unit1) ja lisätään "Unit2" sen [[Uses/fi\|uses]] lauseeseen :
94	78		```
95	79		uses
96	80		Classes, SysUtils, ... , Unit2; // On tärkeää, että yksittäiset käännösyksiköt erotetaan pilkulla
97	81		// ja lauseke päättyy puolipisteeseen.
98	82		```
99	83
100	84		Nyt voidaan kutsua Unit2:sta (ja siten Form2:sta) Unit1:ltä.
101	85
102	86		Seuraavaksi muokataan OnClick-tapahtumaa, joka kuuluu Form1:n painikkeelle:
103	87		```
104	88		unit Unit1;
105	89		...
106	90		procedure TForm1.Button1Click(Sender: TObject);
107	91		begin
108	92		Form2.ShowModal; //Näytetään Form2 ja fokus asetetaan Form2:lle.
109	93		end;
110	94		```
111	95		```
112	96		unit Unit2;
113	97		...
114	98		procedure TForm2.Button1Click(Sender: TObject);
115	99		begin
116	100		Close; //Suljetaan Form2.
117	101		end;
118	102		```
119	103
120	104		Nyt voidaan käynnistää projekti ([![Start.png](/wiki-images/b/b8/Start.png)](</File:Start.png>) tai `F9`) ja avata Form2 klikkaamalla Form1-painiketta.
121	105
122	106		### Show ja ShowModal-erot
123	107
124	108		Molemmat menetelmät _Show_ ja _ShowModal_ tekevät lomakkeen näkyväksi. Nähdäksesi eron _Show_ \- ja _ShowModal_ :n välillä:
125	109
126	110		* Laajenna edellisen esimerkin [[Form Tutorial/fi\|Kahden lomakkeen käyttö]] lisäämällä toinen TButton _Form1_ :een.
127	111		* Valitse _Button1_ ja muuta ominaisuuksien _Name_ arvoon _btnShow_ ja Caption arvoon _Show_.
128	112		* Valitse _Button2_ ja muuta ominaisuudet _Name_ arvoon _btnShowModal_ ja Caption arvoon _ShowModal_.
129	113		* Luo (tai muokkaa) kahden painikkeen _OnClick_ -tapahtumakäsittelijää seuraavasti:
130	114
131	115		```
132	116		procedure TForm1.btnShowClick(Sender: TObject);
133	117		begin
134	118		Form2.Show;
135	119		ShowMessage('Form2 is opened!');
136	120		end;
137	121
138	122		procedure TForm1.btnShowModalClick(Sender: TObject);
139	123		begin
140	124		Form2.ShowModal;
141	125		ShowMessage('Form2 is opened and closed again!');
142	126		end;
143	127		```
144	128
145	129		Käynnistä ohjelma ja katso eroa!
146	130
147		-	~~Show~~
148		-
	131	+	Show
149	132
150	133		Tämä aliohjelma tekee lomakkeen näkyväksi ja jatkaa kutsuvan ohjauksen koodin (_Form1_) suorittamista. Esimerkissä viesti ([[Dialog Examples/fi\|ShowMessage]]) näkyy lähes samanaikaisesti _Form2_ :n kanssa. Voidaan myös jatkaa kutsuvan lomakkeen _Form1_ käyttöä. Esimerkiksi on mahdollista siirtää sitä tai klikata _Show_ -painiketta uudelleen (mutta klikkaamalla _ShowModal_ aiheuttaa virheen).
151	134
152	135		`<myForm>.Show;`: n käyttämisen sijaan on mahdollista käyttää `<myForm>.Visible:=True;`. Metodi _Show_ tekee seuraavaa:
153	136		```
154	137		procedure TCustomForm.Show;
155	138		begin
156	139		Visible := True;
157	140		BringToFront;
158	141		end;
159	142		```
160	143
161	144		Ainoa ero < myForm>.Show; ja < myForm>.Visible: = True; on, että lomake, joka näytetään _Show_ , on kaikkien muiden tällä hetkellä näkyvien lomakkeiden päällä.
162	145
163		-	~~ShowModal~~
164		-
	146	+	ShowModal
165	147
166	148		ShowModal pysäyttää koodin käsittelyn kutsun tehneessä kontrollissa (_Form1_), kunnes vasta avattu lomake (_Form2_) on suljettu. Esimerkissä _ShowModal_ in välittömästi seuraava _ShowMessage_ -rivi suoritetaan vasta kun _Form2_ on suljettu. Kutsulomake on jäädytetty: Ei voi siirtää _Form1_ :tä eikä klikata mitään sen painikkeista.
167	149
168	150		ShowModal on funktio, joka palauttaa kokonaisluvun, katso [TModalResult](<http://lazarus-ccr.sourceforge.net/docs/lcl/forms/tmodalresult.html> "doc:lcl/forms/tmodalresult.html"). Palautettu arvo sallii haarautumisen sen mukaan, miten lomake suljettiin.
169	151
170	152		## Kaksi lomaketta, jotka voivat kutsua toisiaan
171	153
172	154		Yleensä on hyvä ohjelmasuunnittelu välttää päälomakkeen kutsuminen toisesta lomakkeesta. On parempi palata päälomakkeeseen sulkemalla toinen lomake (kuten edellisessä esimerkissä) ja antamalla fokuksen palata päälomakkeelle. On kuitenkin mahdollista kutsua alilomakkeelta päälomaketta, kuten tämä esimerkki näyttää.
173	155
174	156		Jotta Form1 voi kutsua Form2:sta, niin Unit1:n uses-lausekkeessa on oltava unit2. Ja päinvastoin, kun Form2:sesta kutsutaan Form1:stä niin Unit2:n on käytettävä unit1 sen uses-lausekkeessa. Tämä johtaa mahdolliseen Circular Unit Reference-kääntäjän virheeseen, kun kukin yksikkö viittaa toiseen. Tämä esimerkki osoittaa myös, miten Circular Unit Reference virhe voidaan välttää.
175	157
176	158		Jos halutaan tehdä tämä esimerkki, muokkaa edellisen esimerkin lomakkeita ([[Form Tutorial\|Kahden lomakkeen käyttö]]) tai luo uusi projekti, jossa on kaksi lomaketta, joista jokaisella on yksi painike. Aseta Form1.Button1:n caption arvoon "Open Form2" ja määritä Form2.Button1: n caption "Open Form1".
177	159
178	160		Jos muokataan edellistä esimerkkiä niin poistetaan "Unit2" Unit1:n uses-lausekkeesta.
179	161
180	162		Lisätään uses-lauseke kunkin [[Unit/fi\|käännösyksikön]] [[Implementation]]-osaan. Lisätään unit2 Unit1:n-lausekkeeseen ja lisätään Unit1 Unit2:n-lausekkeeseen seuraavasti:
181	163		```
182	164		unit Unit1;
183	165		...
184	166		implementation
185	167
186	168		uses
187	169		Unit2;
188	170		...
189	171		```
190	172		```
191	173		unit Unit2;
192	174		...
193	175		implementation
194	176
195	177		uses
196	178		Unit1;
197	179		...
198	180		```
199	181
200	182		Sitten muutetaan OnClick-tapahtumien takana olevaa koodia painikkeiden tapahtuman käsittelijässä:
201	183		```
202	184		unit Unit1;
203	185		...
204	186		procedure TForm1.Button1Click(Sender: TObject);
205	187		begin
206	188		Form2.Show;
207	189		end;
208	190		```
209	191		```
210	192		unit Unit2;
211	193		...
212	194		procedure TForm2.Button1Click(Sender: TObject);
213	195		begin
214	196		Form1.Show;
215	197		end;
216	198		```
217	199
218	200		## Muuttujien siirtäminen muihin lomakkeisiin
219	201
220		-	Edellä esitetyn esimerkin "[[Form Tutorial\|Kahden lomakkeen käyttö]]" mukaisesti on mahdollista esitellä [[Global variables\|globaali muuttuja]] Unit2: n rajapinnassa. Tämä mahdollistaisi pääsyn sekä unit1:n että unit2:n samaan [[Variable/fi\|muuttujaan]] (tämä johtuu siitä, että asettamalla Unit2 unit1:n uses-lausekkeeseen, kaikki unit2 rajapinnassa ilmoitetut muuttujat ovat myös saatavilla käännösyksikössä unit1). Tämä käytäntö on rajoitettava minimiin, koska siitä on vaikea muistaa, mikä yksittäisen muuttujan "näkölaajuus", se mahdollisesti lisää virheitä. On parempi käyttää [[Local variables/fi\|paikallisia muuttujia]], määritellä [[Object Oriented Programming with Free Pascal and Lazarus\|Property]] [luokassa](</index.php?title=Class/fi&action=edit&redlink=1> "Class/fi \(page does not exist\)") tai vaihtoehtoisesti muuttujana luokassa.
	202	+	Edellä esitetyn esimerkin "[[Form Tutorial\|Kahden lomakkeen käyttö]]" mukaisesti on mahdollista esitellä [[Global variables\|globaali muuttuja]] Unit2: n rajapinnassa. Tämä mahdollistaisi pääsyn sekä unit1:n että unit2:n samaan [[Variable/fi\|muuttujaan]] (tämä johtuu siitä, että asettamalla Unit2 unit1:n uses-lausekkeeseen, kaikki unit2 rajapinnassa ilmoitetut muuttujat ovat myös saatavilla käännösyksikössä unit1). Tämä käytäntö on rajoitettava minimiin, koska siitä on vaikea muistaa, mikä yksittäisen muuttujan "näkölaajuus", se mahdollisesti lisää virheitä. On parempi käyttää [[Local variables/fi\|paikallisia muuttujia]], määritellä [[Object Oriented Programming with Free Pascal and Lazarus\|Property]] [[Class/fi\|luokassa]] tai vaihtoehtoisesti muuttujana luokassa.
221	203
222	204		Seuraavassa projektissa avataan toinen lomake klikkaamalla painiketta. Tällöin päälomakkeen käännösyksikössä lasketaan, kuinka usein toinen muoto on näytetty. Tässä toisessa lomakkeessa voit kysyä, klikkaamalla painiketta, kuinka usein se on avattu:
223	205
224	206		* Tehdään uusi projekti, jossa on kaksi lomaketta, jokainen painike sen päällä ja niiden OnClick-tapahtumat arvioida.
225	207		* nyt luokan TForm2 (unit2) julkisessa osassaon muuttuja (tässä tapauksessa [[Const/fi\|vakio]], joka määriteltiin muuttuvaksi). Se on kokonaisluku tyyppinen, jonka nimi on Count:
226	208
227	209		```
228	210		unit Unit2;
229	211		...
230	212		TForm2 = class(TForm)
231	213		Button1: TButton;
232	214		procedure Button1Click(Sender: TObject);
233	215		private
234	216		{ private declarations }
235	217		public
236	218		{ public declarations }
237	219		const Count: Integer = 0; //Tässä
238	220		end;
239	221		```
240	222
241	223		* nyt voidaan jopa mukauttaa painikkeen tapahtuman käsittelijää vastaavasti:
242	224
243	225		```
244	226		unit Unit1;
245	227		...
246	228		procedure TForm1.Button1Click(Sender: TObject);
247	229		begin
248	230		inc(Form2.Count); //Lisää laskuria yhdellä jokaiselle Form2-kutsulla
249	231		Form2.ShowModal;
250	232		end;
251	233		```
252	234		```
253	235		unit Unit2;
254	236		...
255	237		procedure TForm2.Button1Click(Sender: TObject);
256	238		begin
257	239		ShowMessage('Form2 would be displayed '+IntToStr(Count)+' times');
258	240		end;
259	241		```
260	242
261	243		Tällä tavoin voidaan käyttää Unit1:ssä kaikkia Unit2:n julkisia muuttujia / ominaisuuksia / funktioita / aliohjelmia (yleisiä metodeja).
262	244
263	245		## Muut lomakkeeseen liittyvät aiheet
264	246
265	247		### Käytä toista lomaketta päälomakkeena
266	248
267	249		Jos päätät jonkin ajan kuluttua, että haluat näyttää eri lomakkeita tai uuden lomakkeen näkymään käynnistyksen aikana, voit valita päävalikosta Projekti -> Projektiasetukset -> Lomakkeet:
268	250
269	251		[![Projekteinstellungen Formulare.png](/wiki-images/7/76/Projekteinstellungen_Formulare.png)](</File:Projekteinstellungen_Formulare.png>)
270	252
271	253		Vaihtoehtoisesti voit valita Päävalikko -> Projekti -> Näytä projektin lähdekoodi, eli Project1.lpr (pääohjelman Pascal-koodi) ja luo ensimmäinen lomake, joka näytetään ensimmäisenä:
272	254		```
273	255		program Project1;
274	256		...
275	257		Application.CreateForm(TForm2, Form2); //Form2 luotiin ekana ja näytetään kun sovellus käynnistyy
276	258		Application.CreateForm(TForm1, Form1);
277	259		```
278	260
279	261		### Tallenna lomakkeen ominaisuudet ohjelman lopussa
280	262
281	263		* [[Remember form position and size\|Remember form position and size#Using_TForm.SessionProperties and TXMLPropStorage]]
282	264
283	265		## Luo lomake dynaamisesti
284	266
285	267		### Luo Lazaruksessa suunniteltu lomake dynaamisesti
286	268
287	269		Aina ei tarvitse luoda kaikkia lomakkeita käynnistyksen aikana, joita voidaan kutsua sovelluksen aikana. Jotkut kehittäjät eivät yleensäkään pidä mitään niistä ja poistaa koodin, joka luodaan automaattisesti, kun lisätään projektiin uusi lomake Projekt.lpr: stä. Jos halutaan kirjoittaa kirjasto, jossa on muutama graafinen käyttöliittymä, ei voida muodostaa muotojen dynaamista luomista.
288	270
289	271		Esimerkki:
290	272
291	273		* uusi sovellus, jossa on kaksi lomaketta, Form1:llä painike (lisää unit1 uses lausekkeeseen "Unit2")
292	274		* avaa Projekt.lpr (Projekti -> Näytä projektin lähdekoodi).
293	275		* poista rivi "Application.CreateForm (TForm2, Form2)";
294	276		* Button1: n OnClick-tapahtuma, Form1 lisää seuraavaa koodia:
295	277
296	278		```
297	279		procedure TForm1.Button1Click(Sender: TObject);
298	280		begin
299	281		Form2:=TForm2.Create(Nil); //Form2 luodaan
300	282		Form2.ShowModal; //Form2 näytetään
301	283		FreeAndNil(Form2); //tuhotaan Form2
302	284		end;
303	285		```
304	286
305	287		* nyt yksinkertaisesti suorita
306	288
307	289		### Uuden lomakkeen luominen dynaamisesti
308	290
309	291		Seuraava esimerkki osoittaa, miten uudet lomakkeet voidaan luoda koodilla ilman Form Designer -ohjelmaa.
310	292
311	293		Tässä esimerkissä painikkeen painaminen avaa toisen lomakkeen, joka itse sisältää painikkeen. Tämän toisen painikkeen klikkaaminen ilmoittaa, että lomake sulkeutuu; sitten lomake on suljettu.
312	294
313	295		* Luo uusi sovellus lomakkeella ja painikkeella
314	296		* Lisää Button1: n OnClick-tapahtumassa lomakkeessa 1 seuraava koodi:
315	297
316	298		```
317	299		procedure TForm1.Button1Click(Sender: TObject);
318	300		var
319	301		MyForm: TForm;
320	302		MyButton: TButton;
321	303		begin
322	304		MyForm:=TForm.Create(nil);
323	305		MyForm.SetBounds(100, 100, 220, 150);
324	306		MyForm.Caption:='My dynamic created form';
325	307
326	308		MyButton:=TButton.create(MyForm);
327	309		MyButton.Caption:='Close my form';
328	310		MyButton.SetBounds(10, 10, 200, 30);
329	311		MyButton.Parent:=MyForm;
330	312
331	313		MyButton.OnClick:=@MyButtonClick;
332	314
333	315		MyForm.ShowModal;
334	316
335	317		FreeAndNil(MyForm);
336	318		end;
337	319		```
338	320
339	321		![Light bulb](https://upload.wikimedia.org/wikipedia/commons/d/d8/Nuvola_apps_ktip.png) Huomaa: Jos komponentti on luotu omistajan (owner) kanssa (TButton.Create (Owner: TComponent)), se kuuluu omistajalle, joka vastaa sitten komponentin vapauttamisesta. Näin MyButton vapautetaan automaattisesti vapauttamalla MyForm.
340	322
341	323		* nyt on luotava MyButton.OnClick-tapahtuman käsittelijä. Tätä varten kirjoita luokan TForm1 yksityiseen (private) osioon seuraava aliohjelman määrittely:
342	324
343	325		```
344	326		TForm1 = class(TForm)
345	327		...
346	328		private
347	329		{ private declarations }
348	330		procedure MyButtonClick(Sender: TObject);
349	331		```
350	332
351	333		* Paina `Ctrl]`+`⇧ Shift`+`C` (code completion eli koodin täydentäminen) ja aseta seuraava koodi toteutukseen:
352	334
353	335		```
354	336		procedure TForm1.MyButtonClick(Sender: TObject);
355	337		begin
356	338		Showmessage('Attention, closing my dynamically created form!');
357	339		if Sender is TButton then
358	340		TForm(TButton(Sender).Parent).Close;
359	341		end;
360	342		```
361	343
362	344		* nyt projekti voidaan koota ja suorittaa
363	345
364	346
365	347
366	348		## Katso myös
367	349
368	350		* [[LCL Tips\|Vinkkejä kontrollien manuaaliseen generointiin]]
369	351		* [[LCL Tips\|Esimerkki luoda täydellinen GUI-sovellus koodin mukaan]]
370	352		* [[Testing, if form exists\|Testi onko lomake jo olemassa]]
371	353		* [[Canvas draw vertical line on form/de\|piirtää pystysuoran viivan lomakkeelle]]
372	354		* [[Drawing with canvas\|Piirretään lomakkeelle]]
373	355		* [[user should not be able to close form\|Käyttäjän ei pitäisi pystyä sulkemaan lomaketta]]
374	356		* [[LCL Tips\|Luodaan ei-suorakulmainen ikkuna tai kontrolli]]
375	357		* [[Remember form position and size\|Muistetaan lomakkeen sijainti ja koko]]
376	358
377	359		---
378	360		From the Free Pascal wiki, page "Form Tutorial/fi", as the Internet Archive kept it on 2025-01-17, last changed on 2020-02-16. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history