- 27 Ocak 2007
- 3,176
- 1
- 577
SAVEDIALOG
Bu kontrol elemani bir dosyanin kaydetme islemlerini yapan standart penceredir. Ayrica OPEN DIALOG' un tasidigi tüm özellikleri tasir.Companent Palet / Dialogs / Save Dialog
PROPERTIES
1)Savedialog1.title: Açilan pencerenin basligini belirleyen özelliktir. Basligi görmek için savedialog1.execute ile çalistirilir.2)Savedialog1.Defaultext: Pencere açildiktan sonra default olarak gelecek dosya uzantisi belirlenir.3)Savedialog1.Initialdir: Pencerenin default olarak açilmasini istenen klasör bu özellikle belirlenir. 4)Savedialog1.Filter: Pencere açildigi zaman tüm dosyalar degilde sadece belli uzantili dosyalari listelemek için kullanilan özelliktir.5)Savedialog1.FilterIndex: Filterözelligi ile belirlenen Filtre seçeneklerinin hangisinin default olarak belirleyen özelliktir.ÖRNEK 1: Properti özelliklerinin uygulanmasi.
Kod:
[B]procedure TForm1.Button1Click(Sender: TObject);
begin
[/B][SIZE=2]saveDialog1.[B]Title[/B]:='delphikursu'; //Baslik Ekleme
saveDialog1.[B]DefaultExt[/B]:='txt'; // Default Dosya uzantisi
saveDialog1.[B]Filter[/B]:='Tüm Dosyalar|*.*| txt dosyalari|*.txt';
//Dosya türünü belirler
saveDialog1.[B]FilterIndex[/B]:=2; // 2.uzanti ayarini default getiri.
saveDialog1.[B]InitialDir[/B]:='c:\dersler'; // Aktif Klasörü Belirler
saveDialog1.[B]Execute[/B]; //saveDialogu Çalistirir. [/SIZE]
[B][SIZE=2]if[/SIZE][/B][SIZE=2] SaveDialog1.Execute [B]then[/B]
[B]begin[/B]
memo1.Lines.SaveToFile(SaveDialog1.[B]FileName[/B]);
[/SIZE][B][SIZE=2]end;
end;[/SIZE][/B]
