Na tvorenie záložiek sa využíva komponent PageControl alebo TabControl (oba sa nachádzajú vo Win32).
Na tvoj účel by som použil PageControl. Novú záložku vytvoríš pravým kliknutím na PageControl a NewPage. Alebo prgramovo takto:
Kód:
var
novaZalozka: TTabSheet;
begin
novaZalozka:= TTabSheet.Create(PageControl1);
novaZalozka.Visible:= True;
novaZalozka.Caption:= 'Názov záložky';
novaZalozka.PageControl:= PageControl1;
PageControl1.ActivePage:= novaZalozka; // nastavenie novej záložky na aktívnu
end;
Potom na záložky môžeš programovo za behu vytvárať ovládacie prvky, napríklad takto (na ukážku iba jeden button):
Kód:
var
b: TButton;
begin
b:= TButton.Create(PageControl1.ActivePage);
b.Parent:= PageControl1.ActivePage; // vytvorí ho na aktuálnej záložke. Pre prvú by si napísal PageControl1.Pages[0];
b.Width:= 50;
b.Height:= 20;
b.Left:= 20;
b.Top:= 20;
b.Caption:= 'OK';
end;
Tak ďalej by si to už mal zvládnuť, teraz priradenie prípony.
Na ukladanie dokumentov použi komponent SaveDialog. V Object Inspector-e klikni na
Filter a v tomto dialógu si môžeš vytvoriť vlastné možností prípon, ktoré tvoja aplikácia dokáže otvárať (tie isté, ktoré nastavíš pre SaveDialog navrhujem zvoliť aj pre OpenDialog). Názorná ukážka:
Kód:
Textový súbor (*.txt) | *.txt
Všetky súbory (*.*) | *.*
Štandardnú príponu, ktorá by sa mala ukladať najčastejšie, napíš ako prvú, aby sa zobrazila ako prvá v SaveDialog-u. V každom ukladacom dialógu by namala chýbať možnosť
*.*, pretože užívateľ môže chcieť uložiť dokument už do nejakého iného existujúceho súboru, ktorý môže mať inú príponu (ktorú by si mu napríklad zabudol ponúknuť), trebars *.dat
