TButton/fi: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		TButton ![](/wiki-images/b/b2/Tbutton.png) on komponentti, joka tarjoaa painonapin perustoiminnot. Se löytyy [[Component Palette/fi\|komponenttipaletin]] [[Standard tab/fi\|Standard-välilehdeltä]].
2	2
3	3		TButton on yksi useimmin käytetyistä komponenteista [[TForm/fi\|lomakkeella]]. Klikkaamalla hiirellä sitä ( tai siirrytään sille \<tab\>-näppäimellä ja painetaan \<enter\>-näppäintä) niin tapahtuma syntyy. Tämä klikkaus kutsuu tapahtumaa. Tähän tarvitaan [[Event order\|tapahtumakäsittelijää]] johon kutsun jälkeen hypätään.
4	4
5	5		Lisätään painike lomakkeelle, klikkaamalla TButton-komponenttia (painikkeen kuvake on se jossa on "OK" teksti keskellä) komponenttipaletin Standard-välilehdellä ja asettamalla se klikkauksella lomakkeelle.
6	6
7	7		Tapahtumakäsittelijä saadaan hiiren napsautuksella voidaan melko helposti, Tuplaklikkaa Button:a(tai komponenttimuokkaimessa valitaan Button:n onclick tapahtuma). Button1 tapahtuma lomakkeella Form1 näyttää tältä:
8	8
9	9		``` pascal
10	10		procedure TForm1.Button1Click(Sender: TObject);
11	11		begin
12	12
13	13		end;
14	14		```
15	15
16	16		[[Begin/fi\|Begin]] ja [[End/fi\|end]] lauseiden välille kirjoitetaan koodi, jota kutsutaan, kun Button1:stä klikataan.
17	17
18	18		Yleensä aloittelijoiden oppaat käyttävät TButton:a helppona tulona [[Glossary\|olio-ohjelmointiin]] Lazaruksella. Seuraavat oppaat sopivat hyvin aloittelijoille ymmärtääkseen painikkeiden käytön:
19	19
20	20		- [[Form Tutorial\|Ensimmäinen graafinen sovellus]] täydellisille aloittajille
21	21		- [[Lazarus Tutorial/fi\|Ensimmäinen Lazarus ohjelmasi]] Lazarus opastus
22	22		- [[Object Oriented Programming with FreePascal and Lazarus\|Ohjelmointi esimerkki]] olio-ohjelmoinnista Free Pascal:lla ja Lazaruksella
23	23
24	24		#### Yksinkertainen esimerkki
25	25
26	26		- Luo uusi sovellus, vedä ja pudota TButton lomakkeelle.
27	27		- Tuplaklikkaa tätä Button1-painiketta lomakkeella (luodaan Button1 oletuskäsittelijä: onClick, lähdekoodieditori avautuu).
28	28		- Lisää seuraava koodi tapahtumakäsittelijään (lisää puuttuva rivi):
29	29
30	30		``` pascal
31	31		procedure TForm1.Button1Click(Sender: TObject);
32	32		begin
33	33		ShowMessage('Lazarus makes my day'); //Viesti-dialogi (message) näyttää sisällön
34	34		end;
35	35		```
36	36
37		-	~~- Käynnistä ohjelma (esim. funktionäppäimellä <span class="kbd">F9</span>).~~
	37	+	- Käynnistä ohjelma (esim. funktionäppäimellä `F9`).
38	38
39	39		## Hiiren oikea painike
40	40
41	41		Jokaisella painikkeella (kuten monella muullakin komponentilla) on (valinnainen) PopupMenu ominaisuus (ponnahdusvalikko), joka aktivoi siihen liitetyn [[TPopupMenu/fi\|TPopupMenu]]:n kun hiiren oikeata painiketta klikataan.
42	42
43	43		## Dynaamisesti luotu painike
44	44
45	45		Joskus suunnitteluaikaisen luomisen sijasta painikkeita (tai muita komponentteja), on helpompaa luoda niitä dynaamisesti suorituksen aikana. Tämä lähestymistapa on hyödyllinen varsinkin jos täytyy tehdä toistuvia painikkeita lomakkeelle.
46	46
47	47		Tämä voidaan saavuttaa kuten seuraavassa esimerkissä (nopeasti tehty laskin):
48	48
49	49		- Luo uusi tyhjä [[Form Tutorial\|graafinen sovellus]] lomakkeelle Form1 ja lisää StdCtrls [[Uses/fi\|uses lauseeseen]] (koska siellä on TButton määritelty).
50	50		- vaihda caption Form1 --\> QuickAdd.
51	51		- Luo OnCreate tapahtumankäsittelijä Form1:lle (Siirry komponenttimuokkaimessa tapahtumaan OnCreate ja klikkaa painonappia \[...\]).
52	52		- Täydennä koodi seuraavanlaiseksi:
53	53
54	54		``` pascal
55	55		procedure TForm1.FormCreate(Sender: TObject);
56	56		var
57	57		i: Integer;
58	58		aButton: TButton;
59	59		begin
60	60		for i:=0 to 9 do begin //Luodaan 10 painiketta
61	61		aButton:=TButton.Create(Self); //Luodaan TButton painike, Owner on Form1, mihin se laitetaan
62	62		aButton.Parent:=Self; //Määrittää missä se näytetään
63	63		aButton.Width:=aButton.Height; //Leveys olisi sama kuin korkeus
64	64		aButton.Left:=i*aButton.Width; //Vasemman reunan etäisyys
65	65		aButton.Caption:=IntToStr(i); //Painikkeessa näytettävä teksti (numero 0..9)
66	66		aButton.OnClick:=@aButtonClick; //Painikkeen tapahtumakäsittelijä (luodaan myöhemmin)
67	67		end;
68	68		Self.Height:=aButton.Height; //Lomakkeen korkeus on sama kuin painikkeen korkeus
69	69		Self.Width:=aButton.Width*10; //Lomakkeen leveys olisi sama kuin painkkeiden leveys
70	70		end;
71	71		```
72	72
73	73		- Nyt täytyy luoda tapahtuman käsittelijä painikkeen klikkaukseen.
74	74		- Lähdekoodieditorissa, siirry luokan TForm1 osioon `private`.
75	75		- Lisää `procedure aButtonClick(Sender: TObject);` ja paina näppäimiä \<CTRL\> + \<Shift\> + \<c\> (Koodin täydentäjä tulee aktiiviseksi ja luo aliohjelman `TForm1.aButtonClick(Sender: TObject);`.
76	76		- Täydennä lähdekoodi seuraavaksi:
77	77
78	78		``` pascal
79	79		procedure TForm1.aButtonClick(Sender: TObject);
80	80		const
81	81		Cnt: Integer = 0;
82	82		var
83	83		i: Integer;
84	84		begin
85	85		if (Sender is TButton) and // Tarkistetaan että kutsuja oli painike
86	86		TryStrToInt(TButton(Sender).Caption, i) // yritetään muuntaa painikkeen teksti kokonaisluvuksi
87	87		then begin
88	88		Cnt:=Cnt + i; // Lisätään laskuria painikkeessa olevalla luvulla
89	89		Caption:='QuickAdd: '+IntToStr(Cnt); // Kirjoitetaan laskurin tulos lomakkeen yläpalkkiin
90	90		end;
91	91		end;
92	92		```
93	93
94	94		- Käynnistä sovellus.
95	95
96	96		> Note: Painikkeiden tapahtumankäsittelijäksi voidaan liittää mikä tahansa lomakkeella oleva `procedure <class>.<name of procedure>(Sender: TObject);`.
97	97		>
98	98		> `Siten voidaan käyttää yhtä ja samaa aliohjelmaa muissakin luokissa!`
99	99
100	100		## Katso myös
101	101
102	102		- [[doc:lcl/stdctrls/tbutton.html\|TButton doc]]
103	103		- [[TBitBtn]]
104	104		- [[TSpeedButton]]
105	105		- [[TColorButton]]
106	106		- [[15-puzzle/fi\|15-peli]]
107	107
108	108		---
109	109		From the Free Pascal wiki, page "TButton/fi", as it stood on 2020-02-29 after a change by Trev, out of the wiki's dump of 2024-05-26. 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