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.