Difference between revisions of "Howto Use TSaveDialog/sk"
m (Text replace - "delphi>" to "syntaxhighlight>") |
m (Fixed syntax highlighting) |
||
| Line 23: | Line 23: | ||
Kliknite na záložku Events (udalosti) v okne Object Inspector. Kliknite na malý obdĺžniček napravo od 'OnClick', automaticky sa prenesiete do editoru kódu (Source Editor) s automaticky vytvoreným kúskom kódu. Vložte: | Kliknite na záložku Events (udalosti) v okne Object Inspector. Kliknite na malý obdĺžniček napravo od 'OnClick', automaticky sa prenesiete do editoru kódu (Source Editor) s automaticky vytvoreným kúskom kódu. Vložte: | ||
| − | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
procedure TForm1.Button1Click( Sender: TObject ); | procedure TForm1.Button1Click( Sender: TObject ); | ||
begin | begin | ||
Latest revision as of 08:53, 17 February 2020
│
Deutsch (de) │
English (en) │
español (es) │
suomi (fi) │
français (fr) │
日本語 (ja) │
polski (pl) │
русский (ru) │
slovenčina (sk) │
Používame TSaveDialog
Jednoduchý (a veľmi krátky) návod:
1. Umiestnite ikonku SaveDialog na váš formulár (hocikam, lebo za behu programu sa aj tak nezobrazí).
(Je to druhá najlavejšia ikonka v záložke Dialogs)
2. Pridajte do formulára komponentu Memo.
3. Pridajte do formulára tlačidlo.
V okne Object Inspector sa zobrazi vlastnosti objektu Button1. Nastavte vlastnosť 'Caption' na 'Save'. Kliknite na záložku Events (udalosti) v okne Object Inspector. Kliknite na malý obdĺžniček napravo od 'OnClick', automaticky sa prenesiete do editoru kódu (Source Editor) s automaticky vytvoreným kúskom kódu. Vložte:
procedure TForm1.Button1Click( Sender: TObject );
begin
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile( SaveDialog1.Filename );
end;
Metóda Execute zobrazí dialógové okno Uložiť súbor. Vráti true, ak užívateľ vyberie súbor, alebo false, ak okno stornuje.
Vlastnosť Filename potom obsahuje názov súboru, vrátane disku a celej cesty.
