Delphi İle Not Defteri Oluşturmak.

[E-Tardis]

İ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

Kodlarımıza Geçebiliriz.

Kaydet butonumuza çift tıklayarak kod bölümüne şunları yazalım:

PHP Kod:

Kod: Tümünü Seç Tümünü Kopyala

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:

PHP Kod:

Kod: Tümünü Seç Tümünü Kopyala

Memo1.CutToClipboard 

Kopyala butonumuza çift tıklayarak kod bölümüne şunları yazalım:

PHP Kod:

Kod: Tümünü Seç Tümünü Kopyala

Memo1.CopyToClipboard 

Yapıştır butonumuza çift tıklayarak kod bölümüne şunları yazalım:

PHP Kod:

Kod: Tümünü Seç Tümünü Kopyala

Memo1.PasteFromClipboard 

Temizle butonumuza çift tıklayarak kod bölümüne şunları yazalım:

PHP Kod:

Kod: Tümünü Seç Tümünü Kopyala

Memo1.Clear 

Bunları yaptıktan sonra Run bölümünden veya F9'a basarak programımızı çalıştırabiliriz.