Pääteohjaustehtäviä
9 / 1-2.11
1. TActionList
- 1.
- Erään
luennon lopuksi esiteltiin
TActionList
- komponenttia. Tee komponenttia käyttäen ohjelma, jossa sekä
menusta kahdesta eri kohtaa, formilla olevasta nappulasta että Ctrl+K:sta
tulee sama tapahtuma:
ShowMessage('Tapahtuma tuli!');
1. Lisää ensin TActionList - komponentti.
2. Tuplaklikkaa komponenttia ja Actions ikkunassa valitse hiiren oikealla
New Action.
3. Täytä property uudesta actionista ja anna sille hyvä nimi
4. Laita haluttu pikanäppäin.
5. Lisää menut ja ja laita menun Actioniksi tuo em. action.
6. Lisää vielä nappula jolle tulee sama Action.
-
-
- 2.
- Lisää
edelliseen ohjelmaan
CheckBox,
jonka ollessa ruksittuna nappula ja menut ovat aktiivisia, mutta kun ruksi
poistetaan niin sekä menut että nappula menevät
Enabled:=false
- tilaan.
2. Lomakeen
luominen funktiossa
- 3.
- Katso
demotehtävää 9.3 ja 9.4.
Tee
FormKysyInt:ia
varten tarvittava testiohjelma valmiiksi.
1. Luo päälomakkeen lisäksi uusi lomake FormKysyInt
2. FormKysyInt:iin nappula OK, jolle ominaisuus ModalResult := mrOK
ja Cancel, jolla Cancel := true ja ModalResult := mrCancel.
3. Poista FormKysyInt projektista.
4. Poista globaali muuttuja FormKysyInt.
5. Päälomakkeelle hiiren oikeasta napista mm:
i := KysyInt('Anna kokonaisluku',0); // Kysymys ja oletusarvo
6. Funktio KysyInt siihen Unitiin, mihin FormKysyInt-kirjoitetaan.
7. Funktion KysyInt koodiin FormKysyInt-dialogin luominen ja ShowModal.
3. Ini-tiedostot
- 4.
- Kopioi
hakemiston
N:\kurssit\winohj\kaytto
sisältö omaan hakemistoosi ja tutki ohjelmaa
varit.
Lue "käyttöohje" tiedostosta
VariForm.pas.
Miten ja miksi numeronäppäimen painallus hakee jonkin
värikombinaation? Unitit
IniFiles,
IniName, kdouble
löytyvät
hakemistosta
N:\Kave\k2000\kcomp.