Parametry
| caption | nadpis dialogovΘho okna |
| text | °et∞zec editovan² v dialogovΘm okn∞ |
| maxlen | dΘlka, na nφ₧ se omezφ v²stupnφ °et∞zec text |
Popis
Funkce Input_box otev°e na obrazovce dialogovΘ okno a umo₧nφ u₧ivateli zadat jeden ·daj ve form∞ °et∞zce znak∙. Tento °et∞zec vrßtφ v prom∞nnΘ text.
Obsah prom∞nnΘ text musφ b²t p°ed volßnφm tΘto funkce inicializovßn °et∞zcem, kterΘ se mß v dialogovΘm okn∞ objevit po jeho otev°enφ.
U₧ivatel m∙₧e ukonΦit zadßvßnφ °et∞zce bu∩ stiskem tlaΦφtka OK nebo ZruÜit akci. V druhΘm p°φpad∞ obsah prom∞nnΘ text nebude zm∞n∞n.
U₧ivatel nebude moci zadat vφce znak∙, ne₧ je hodnota parametru maxlen.
Pro zadßvßnφ v∞tÜφho poΦtu ·daj∙ pou₧ijte formulß°e do prom∞nn²ch projektu.
Hodnota funkce
Pokud u₧ivatel uzav°e dialogovΘ okno stiskem tlaΦφtka OK, pak funkce vrßtφ TRUE. Pokud pou₧ije tlaΦφtko ZruÜit akci, funkce vrßtφ FALSE.
P°φklad
var
a : boolean;
ss : string[20];
dat : date;
begin
repeat
ss := date2str(Today,1);
a := Input_box("Zadejte datum",ss,10);
dat := Str2date(ss);
until (dat <> nonedate) or (a = false);
...
end.