Delphi'de Not Defteri Yapmak

Delphi'de basit bir not defteri yapmaya ne dersiniz? (Kaydetme - Kopyalama - Yapıştırma - Kesme - Temizleme)

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.

Bu dersimizin sonuna geldik. Bir dahaki derste görüşmek üzere...
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git