Lekce 2.06
NaÜe prvnφ jednoduchß aplikace

JeÜt∞ ne₧ zaΦneme tvo°it, uzav°ete vÜechna okna, ponechejte pouze viditelnΘ pouze hlavnφ okno systΘmu. Nejprve znßm²m zp∙sobem vytvo°te nov² projekt s formulß°em. Pokud nemßte viditelnou paletu komponent, zobrazte ji volbou z menu Nßstroje/Paleta komponent. Vyberte zßlo₧ku 'Standard' a nalezn∞te na nφ ikonu s nßzvem Button. P°edstavuje ji ikona zobrazujφcφ tlaΦφtko s nßpisem OK. Klikn∞te na ikonu, aby se komponenta aktivovala a p°eje∩te myÜφ nad formulß°. Klikn∞te myÜφ v hornφ levΘ Φßsti formulß°e a ta₧enφm vyznaΦte obdΘlnφkovou oblast pro tlaΦφtko. Po uvoln∞nφ tlaΦφtka vznikne na formulß°i tlaΦφtko s nßpisem 'Button1'. Vytvo°te obdobn²m zp∙sobem i druhΘ tlaΦφtko, kterΘ umφstφte pod prvnφ tlaΦφtko. Nezapome≥te p°itom znovu kliknout na ikonu tlaΦφtka v palet∞ komponent. Vytvo°φ se tlaΦφtko s nßpisem 'Button2'. Jak vidφte, systΘm si sßm jednotlivΘ objekty pojmenovßvß a Φφsluje.

Nynφ m∙₧ete tlaΦφtka na formulß°i srovnat, p°φpadn∞ upravit i velikost formulß°e. Velikost formulß°e je mo₧nΘ zm∞nit stejn²m zp∙sobem jako velikost jakΘhokoliv jinΘho objektu. Formulß° je vlastn∞ takΘ objekt, kter² vÜak nemß samostatnou komponentu na palet∞.

Nynφ ji₧ mßme vytvo°en zßkladnφ tvar aplikace. Zadßme jeÜt∞ po₧adovanΘ nßpisy na tlaΦφtka. To ji₧ musφme provΘst v okn∞ Nastavenφ objekt∙. UrΦit∞ ji₧ vφte, ₧e je mo₧nΘ jej zobrazit nap°φklad po stisku klßvesy F11. Klikn∞te v okn∞ nastavenφ na zßlo₧ku pro nastavenφ vlastnostφ a nalezn∞te vlastnost Caption. Pokud mßte nastaveno, ₧e jsou vlastnosti rozd∞leny podle kategoriφ, naleznete ji v kategorii Vzhled, jinak podle abecedy. VÜimn∞te si, ₧e vlastnost Caption obsahuje po vytvo°enφ tlaΦφtka stejnou hodnotu, jako je nßpis na tlaΦφtku. Zm∞≥te hodnotu a uvidφte, ₧e souΦasn∞ se zm∞nou hodnoty v nastavenφ se zm∞nφ i nßpis na tlaΦφtku. Je to proto, ₧e vlastnost Caption znamenß v angliΦtin∞ titulek, nßpis. Zm∞≥te uveden²m zp∙sobem nßpis hornφho tlaΦφtka na 'Pozdrav' a u dolnφho tlaΦφtka zadejte 'Konec'. Stejn²m zp∙sobem m∙₧ete nastavit vlastnost Caption i u formulß°e. Zadejte hodnotu 'Moje prvnφ aplikace'. Samoz°ejm∞ bez nynφ uveden²ch apostrof∙.

Jak si m∙₧ete vÜimnout, program aplikace v jazyce BONANZA a JUKON z∙stßvß stßle prßzdn². Obsahuje pouze definici prßzdnΘho programu. Pouze v jazyce KLONDAIK se do sekce Type doplnily informace o nov∞ vytvo°en²ch objektech na formulß°i.

Op∞t, bez jakΘhokoliv programovßnφ zkuste aplikaci spustit. Klikn∞te na klßvesu F9 a ulo₧te projekt a program. Nßsledn∞ se ji₧ aplikace spustφ. Zobrazφ se nadefinovanΘ okno se dv∞mi tlaΦφtky. Okno lze p°esouvat, zv∞tÜovat a zmenÜovat. Po kliknutφ na tlaΦφtka se vÜak neprovede ₧ßdnß Φinnost. Je to proto, ₧e jsme zatφm neurΦili, co se mß po stisku tlaΦφtka provΘst. Windows proto reaguje na stisk tlaΦφtka pouze tφm, ₧e zobrazφ efekt stisknutΘho tlaΦφtka. Aplikaci proto budete muset ukonΦit kliknutφm na systΘmovou uzavφracφ ikonu okna.

Jak ji₧ asi tuÜφte, budeme muset do programu zadat akci, kterß se mß provΘst p°i v²skytu udßlosti stisku tlaΦφtka na formulß°i. Nenφ to nic slo₧itΘho. UkonΦete aplikaci, pokud jste tak dosud neuΦinili. Aktivujte hornφ tlaΦφtko na formulß°i a p°esu≥te se do okna Nastavenφ objekt∙. Zvolte zßlo₧ku udßlosti a uvidφte, ₧e vÜechny udßlosti jsou prßzdnΘ, pro ₧ßdnou udßlost nebyla zadßna ₧ßdnß Φinnost. Nalezn∞te v levΘm sloupci udßlost OnClick a klikn∞te dvakrßt v pravΘm sloupeΦku u tΘto udßlosti. Tφm zadßte, ₧e chcete pro tuto udßlost zapsat akce, kterΘ se majφ p°i v²skytu udßlosti provΘst. Udßlost OnClick bude p°itom vyvolßna po stisku tlaΦφtka. SystΘm sßm pro zvolenou udßlost vygeneruje prßzdnou proceduru, do kterΘ m∙₧ete po₧adovanou akci zapsat. Kurzor je p°itom umφst∞n v t∞le procedury. Nem∞≥te zßhlavφ procedury a zapiÜte do t∞la procedury u prvnφho tlaΦφtka volßnφ funkce pro zobrazenφ systΘmovΘho hlßÜenφ procedurou ShowMessage. U druhΘho tlaΦφtka postupujte obdobn²m zp∙sobem. Dopl≥te vÜak p°φkaz pro uzav°enφ formulß°e Form1.Close dle nßsledujφcφho vzoru uvedenΘho pro vÜechny podporovanΘ jazyky:

Jazyk KLONDAIK:
procedure Tform1.Button1Click(Sender: TObject);
begin
   ShowMessage('Ahoj');
end;

procedure Tform1.Button1Click(Sender: TObject);
begin
   ShowMessage('Ahoj');
end;

Jazyk BONANZA:
sub Button1Click(Sender)
    ShowMessage("Ahoj")
end sub

sub Button2Click(Sender)
    Form1.Close
end sub

Jazyk JUKON:
function Button1Click(Sender)
{
   ShowMessage('Ahoj');
}

function Button2Click(Sender)
{
   Form1.Close;
}

Pokud mßte program dopln∞n podle v²Üe uvedenΘho vzoru, m∙₧ete jej spustit. Kdy₧ kliknete na hornφ tlaΦφtko, vypφÜe se zadanΘ hlßÜenφ. Po kliknutφ na spodnφ tlaΦφtko bude aplikace ukonΦena. Povedlo se nßm tedy vytvo°it aplikaci podle zadßnφ. Asi ale netuÜφte co se skr²vß v automaticky vygenerovan²ch procedurßch a kdy jsou volßny. To si ale vysv∞tlφme v nßsledujφcφch lekcφch.