Howto Use TSaveDialog/fi

From Lazarus wiki
Revision as of 16:21, 27 December 2008 by Djzepi (talk | contribs) (New page: {{Howto Use TSaveDialog}} Kuinka käytät tallenna-dialogia Image:tsavedialog.png Yksinkertainen opastus 1. Laita SaveDialog-komponentti lomakkeelle eli Form:lle (Mihin tahansa pai...)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

Deutsch (de) English (en) español (es) suomi (fi) français (fr) 日本語 (ja) polski (pl) русский (ru) slovenčina (sk)

Kuinka käytät tallenna-dialogia

tsavedialog.png

Yksinkertainen opastus

1. Laita SaveDialog-komponentti lomakkeelle eli Form:lle (Mihin tahansa paikkaan. Se ei ole varsinaisessa ohjelmassa näkyvissä).

 Component Palette Dialogs.png
 (Se on toinen vasemmalta dialogs välilehdellä)


2. Lisää memo- eli muistiokomponentti lomakkeelle.

tmemo.png


3. Lisää Button- eli painonappikomponentti lomakkeelle.

tbutton.png

Komponenttimuokkain näyttää Button1 olion (komponentin) ominaisuudet. Muuta ominaisuutta jota kutsutaan nimellä Caption. Se näyttää arvoa 'Button1'. Vaihda se 'Tallenna' nimiseksi.

Valitse komponenttimuokkaimen tapahtumat välilehti. Mene OnClick:n kohdalla oikealla puolella olevaan painikkeeseen joka on pieni laatikko kolmella pisteellä (...). Napsauta tätä niin siirryt automaattisesti tehtyyn koodirunkoon lähdekoodieditoriin. Täydennä koodi seuraavaksi:

<delphi>

procedure TForm1.Button1Click( Sender: TObject );
begin
  if SaveDialog1.Execute then
   Memo1.Lines.SaveToFile( SaveDialog1.Filename );
end;

</delphi>

Execute-metodi näyttää tallenna dialogin. Se palauttaa joko arvon true kun ohjelman käyttäjä valitsee tiedoston tai arvon false jos käyttäjä keskeyttää valinnan.

Filename property palauttaa tayden tiedostonimen polkuineen.


Katso myös