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----
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----
