OpenDialog Ve SaveDialog

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
Kullanıcı avatarı
Fatih!
Kıdemli Üye
Mesajlar: 1172
Kayıt: 26 Kas 2004 10:46
Konum: Malatya
İletişim:

OpenDialog Ve SaveDialog

Mesaj gönderen Fatih! »

OpenDialog

Bu kontrolü kullanarak olusturmus oldugunuz dosyanizi bulmaniz için size yardimci pencere açilmasini saglar.
Bu bileşennin Execute metoduyla Aç dialog penceresini açabilir, FileName metoduyla Seçilen dosya ismini öğrenebilirsiniz.

Resim

Özellikleri

Opendialog1.Title: Açilan pencerenin basligini belirleyen özelliktir. Basligi görmek için opendialog1.execute ile çalistirilir.
Opendialog1.Defaultext: Kullanıcı dosya uzantısını belirtmezse default olarak gelecek dosya uzantisi belirlenir.
Opendialog1.Initialdir: Pencerenin default olarak açilmasini istenen klasör bu özellikle belirlenir.
Opendialog1.Filter: Pencere açildigi zaman tüm dosyalar degilde sadece belli uzantili dosyalari listelemek için kullanilan özelliktir. Birden fazla dosya göstermek için aralarına "|" işareti kullanılır.


Opendialog1.FilterIndex: Filter özelligi ile belirlenen Filtre seçeneklerinin hangisinin default olarak Görünmesini belirleyen özelliktir.
Opendialog1.FileEditStyle: Dosya Adı bölümün Edit mi Combobox şeklindemi olacağını belirler. Opendialog1.FileEditStyle:=fsComboBox; // ComboBox şeklinde

Opendialog1.FileEditStyle:=fsEdit; // Edit şeklinde

Opendialog1.HistoryList:Dosya Adı bölümün Combobox şeklinde ise comboxu daha önce seçilen dosya isimlerini combox listesine eklemenizi sağlar.

Opendialog1.HistoryList.LoadFromFile('Geçmiş.txt'); // Bir txt deki bilgileri comboya dolduruyoruz.

Opendialog1.HistoryList.SaveToFile('Geçmiş.txt'); // Combodaki bilgileri txt'ye kaydediyoruz.

Opendialog1.HistoryList.Add(Opendialog1.FileName); // Seçilen Dosya ismini Comboya ekliyoruz.

Opendialog1.HistoryList.Clear; // Combodaki bilgileri siler

OptipnsEx deki ofExNoPlace özelliği true yapılırsa dialog penceresinde Masaüstü,Belggelerim gibi sekmelerin bulunmamassını sağlar

Options :

Options özelliği aşağıdaki değerleri alarak OpenDialog ve SaveDialog Bileşenleri üzerinde etkilidir.

ofReadOnly > Salt Okunur aç Checkboxununn İşaretini temsil eder.

ofOverWritePromp > Save Dialog bileşeninde kaydedeceğiniz dosyanın aynısı varsa Üstüne yazılsınmı diye sorulmasını sağlar.

ofHideReadOnly > Salt Okunur aç Checkboxununn görünmemesini sağlar.

ofNoChangeDir > Dialog penceresi ilk açıldığı dizin bölümü değişse bile daha sonraki açılışlardada İlk açılan dizin içinde açılmasını sağlar.

ofShowHelp > dialog penceresinde help buttonunun görünmesini sağlar.

ofnoValidate > True ise Dialog penceresinde dosya isimlerinde kllanılmayan karakterleri girişine izin vermez. False ise Geçersiz karakter kullanılırsa kullanıcı uyarılır.

ofAllowMultiSelect > Birden çok dosya seçmenizi sağlar

ofCreatePromp > Dialogda yazılan dosya ismi yoksa kllanıcıya Dosyanın olmadığını Gösteren bir uyarı penceresinin görünmesini sağlar.

ofExtensionDifferent > Dosya uzantısının DefaultExt ten Farklı olup olmadığını öğrenmenizi sağlar

ofFileMustExist > ofCreatePromp ile aynı. tek farkı Pencereyi kapatmaması.

ofReadOnlyReturn > Salt okunur bir dosya seçildiğinde Salt okunur bir dosya seçtiğini söyler.

ofPathMustExist > olmayan bir dizin adı yazıldğında kullanıcıyı uyarır.

ofOldStyleDialog > dialog penceresinin Win3.1 şeklinde görünmesini sağlar

ofForceShowHidden > gizli Dosyalarında görünmesini sağlar.

Options Özelliğini Kodla aşağıdaki şekilde kullanabilirsiniz.

Opendialog1.Options:=[ofForceShowHidden,ofShowHelp];

Örnek İçin 1 button, 1 opendialog ve 1 richedit ekleyin.

formun oncreate olayında varsayılan dosya adını delphidunyasi.txt yapalım.

Caption:='delphidunyasi.txt'; //formun başlığına varsayılan dosya ismi olarak delphidunyasi.txt adını ekliyoruz.



Dosya Aç Buttonunun Onclickine

Kod: Tümünü seç

OpenDialog1.Title:='www.delphidunyasi.com'; //Baslik
OpenDialog1.DefaultExt:='txt'; // Default Dosya uzantisi
OpenDialog1.Filter:='Tüm Dosyalar (*.*)|*.*| Text Dosyalar (*.TXT)|*.txt'; // Dosya türünü belirler
OpenDialog1.FilterIndex:=2; // 2.uzanti ayarini default getir
OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName) ; // Aktif Klasör Exe Dizini
if OpenDialog1.Execute then // dialog penceresini aç ve iilem iptal edilmediyse
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); //çagrilan dosyayi RichEdite aktar 

Caption:=OpenDialog1.FileName; //formun başlığına açılana dosyanın adını ekliyoruz. 


SaveDialog

Bu kontrol elemani bir dosyanin kaydetme islemlerini yapan standart penceredir. Ayrica OPEN DIALOG' un tasidigi tüm özellikleri tasir.

tıpkı opendialog gibi Execute metoduyla çalışır.

OpenDialog bölümünde başladıımız başladığımız projeye devam edelim. bunun için formunuza ek olarak Kaydet ve FarkliKaydet adında iki button ekleyin. veya bir mainmenu bileşeni ekleyip gerekli menü seçeneklerini oluşturun. Dialog sekmesindeki bileşenlerle yavaş avaş bir not defteri yazıyooruz.



Kaydet buttonuna aşağıdaki kodu yazın

Kod: Tümünü seç

if Caption='DelphiDunyasi.txt' Then //Dosya ismi verilmemişse 

FarkliKaydet.Click //Farklı kaydet buttonundaki kodlar işlesin

Else //formun başlığında Dosya adı varsa Richedit içeriğini kaydet

RichEdit.Lines.SaveToFile(Caption);


Farklı Kaydet buttonuna aşağıdaki kodu yazın.

Kod: Tümünü seç

SaveDialog1.DefaultExt:='txt'; //uzantı belirtilmezse varsayılan uzantı txt

SaveDialog1.FileName:=Caption; //Varsayılan dosya ismi form başlığı

if SaveDalog1.Execute Then //Kaydet Göster ve işlem iptal edilmezse 

Begin

RichEdit.Lines.SaveToFile(SaveDialog1.FileName); //SaveDialoga yazılan dosya ismi ile kaydet

Caption:=SaveDialog1.FileName; //formun başlığını SaveDialoga yazılan dosya ismi ile Değiştir
End;
Cevapla