Lekce 2.13
Použití externího formuláře

Pokud budete potřebovat používat externí programy, ve kterých máte vícekrát se opakující procedury a funkce, je jejich použití stejné, jako když je používáte z programu bez formuláře. Nejprve si proto požadovaný program načtěte do projektu. To se provede volbou z menu Soubor/Přidat do projektu. Dále musíte do hlavního programu, ze kterého budete volat procedury umístěné v externím programu doplnit definici používaného externího programu. Přesvěčte se, že máte v editoru aktivován hlavní program a zvolte z menu volbu Soubor/Definovat modul a vyberte v zobrazeném dialogu program, se kterým má hlavní program spolupracovat (bude mít možnost používat jeho procedury a funkce). Uvedeným postupem bude do seznamu používaných modulů doplněn zadaný externí program. V jazyce KLONDAIK je to v sekci Implementation, v jazyce BONANZA a JUKON je to na začátku programu za označením //USEUNIT.

Použití dalšího formuláře v programu je obdobné, jako použití externího programu. Další formulář doplníte do aplikace (projektu) volbou z menu Soubor/Nový, kdy vyberete na záložce Formulář ikonu s formulářem v používaném jazyku. Vytvoří se prázdný formulář včetně odpovídajícího programu. Doporučuje se ihned přejmenovat formulář podle jeho obsahu. Pokud byste měli totiž v aplikaci formuláře se stejným jménem, nedokázal by systém rozhodnout, se kterým formulářem chcete pracovat. Stejně tak se doporučuje program ihned uložit a zadat mu tím jeho jméno.

Pokud aplikaci s několika formuláři spustíte, zobrazí se pouze první (hlavní) formulář. Aby mohly být zobrazeny i další formuláře, je nutné je zadat jako externí moduly. To provede stejně, jako se zadávají externí programy. Aktivujte proto v editoru hlavní program a zvolte z menu akci Soubor/Definovat modul. Vyberte v dialogovém okně požadovaný program, který se tím doplní mezi seznam používaných modulů. V jazyce KLONDAIK je to v sekci Implementation, v jazyce BONANZA a JUKON je to na začátku programu za označením //USEUNIT.

Standardně se po spuštění aplikace zobrazuje pouze hlavní formulář. Ostatní formuláře je možné zobrazit voláním metody Show, případně ShowModal. Pokud požadujete zobrazit okamžitě při spuštění aplikace i externí formulář, musíte pro něj nastavit buď v okně nastavení objektu změnit vlastnost na True, případně nastavit uvedenou vlastnost v ošetření události OnCreate.

Pro zobrazení formuláře, který máte definován jako externí modul a požadujete jeho nemodální zobrazení, musíte použít z hlavního programu metodu Show. Nemodální zobrazení znamená, že je možné se mezi formuláři přepínat. Pro modální zobrazení musíte vyvolat metodu ShowModal, při kterém není možné se přepnout na jiný formulář bez jeho ukončení. Modální zobrazení používají například dialogové boxy. Následující ukázka zobrazí po kliknutí na tlačítko modálně externí formulář. V takovém případě je vhodné si kontrolovat, zda není formulář již zobrazen. Pokud ano, došlo by při pokusu o modální zobrazení k chybě.

Jazyk KLONDAIK:
procedure TForm1.Button2Click(Sender: TObject);
begin
   if Form2.Visible = False then Form2.ShowModal;
end;

Jazyk BONANZA:
sub Button2Click(Sender)
    if Form2.Visible = False then Form2.ShowModal
end sub

Jazyk JUKON:
function Button2Click(Sender)
{
   if (Form2.Visible == False) Form2.ShowModal;
}

Jazyk KLONDAIK:
Form2.Button1.Caption := 'XXXXXXX';
ShowMessage('Width 2:='+IntToStr(Form2.Width));
Form2.Button1.Click;
Form2.Close;

Jazyk BONANZA:
Form2.Button1.Caption = "XXXXXXX"
ShowMessage("Width:="+IntToStr(Form2.Width))
Form2.Button1.Click
Form2.Close

Jazyk JUKON:
Form2.Button1.Caption =  "XXXXXXX"
ShowMessage("Width :="+IntToStr(Form2.Width));
Form2.Button1.Click;
Form2.Close;