Merhabalar,
Bugün sizlerle Delphi'de kaydetme gibi seçenekleri olan bir not defteri yapacağız.
İlk olarak formumuza 5 tane buton, 1 tane Memo1 ve 1 tane SaveDialogs ekleyelim.
Şimdi butonlarımızın ismini sırasıyla şöyle yapalım:
1.Buton: Kaydet
2.Buton: Kes
3.Buton: Kopyala
4.Buton: Yapıştır
5.Buton: Temizle
Kaydet butonumuza çift tıklayarak kod bölümüne şunları yazalım:
If SaveDialog1.Execute then Begin Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt' ); End
Bu kodda Memo 1'e yazdığımız yazıyı text belgesi olarak istediğimiz yere kaydedecek.
Kes butonumuza çift tıklayarak kod bölümüne şunları yazalım:
Memo1.CutToClipboard
Kopyala butonumuza çift tıklayarak kod bölümüne şunları yazalım:
Memo1.CopyToClipboard
Yapıştır butonumuza çift tıklayarak kod bölümüne şunları yazalım:
Memo1.PasteFromClipboard
Temizle butonumuza çift tıklayarak kod bölümüne şunları yazalım:
Memo1.Clear
Bunları yaptıktan sonra Run bölümünden veya F9'a basarak programımızı çalıştırabiliriz.
Bugün sizlerle Delphi'de kaydetme gibi seçenekleri olan bir not defteri yapacağız.
İlk olarak formumuza 5 tane buton, 1 tane Memo1 ve 1 tane SaveDialogs ekleyelim.
Şimdi butonlarımızın ismini sırasıyla şöyle yapalım:
1.Buton: Kaydet
2.Buton: Kes
3.Buton: Kopyala
4.Buton: Yapıştır
5.Buton: Temizle
Kaydet butonumuza çift tıklayarak kod bölümüne şunları yazalım:
If SaveDialog1.Execute then Begin Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt' ); End
Bu kodda Memo 1'e yazdığımız yazıyı text belgesi olarak istediğimiz yere kaydedecek.
Kes butonumuza çift tıklayarak kod bölümüne şunları yazalım:
Memo1.CutToClipboard
Kopyala butonumuza çift tıklayarak kod bölümüne şunları yazalım:
Memo1.CopyToClipboard
Yapıştır butonumuza çift tıklayarak kod bölümüne şunları yazalım:
Memo1.PasteFromClipboard
Temizle butonumuza çift tıklayarak kod bölümüne şunları yazalım:
Memo1.Clear
Bunları yaptıktan sonra Run bölümünden veya F9'a basarak programımızı çalıştırabiliriz.