Bu kontrol elemani bir dosyanin kaydetme islemlerini yapan standart penceredir. Ayrica OPEN DIALOG' un tasidigi tüm özellikleri tasir.
Companent Palet / Dialogs / Save Dialog butonuna tiklanir.
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.
Companent Palet / Dialogs / Save Dialog butonuna tiklanir.
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:
procedure TForm1.Button1Click(Sender: TObject);
begin
saveDialog1.Title:='delphikursu'; //Baslik Ekleme
saveDialog1.DefaultExt:='txt'; // Default Dosya uzantisi
saveDialog1.Filter:='Tüm Dosyalar|*.*| txt dosyalari|*.txt';
//Dosya türünü belirler
saveDialog1.FilterIndex:=2; // 2.uzanti ayarini default getiri.
saveDialog1.InitialDir:='c:\dersler'; // Aktif Klasörü Belirler
saveDialog1.Execute; //saveDialogu Çalistirir.
if SaveDialog1.Execute then
begin
memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;