Mega Code Archive

 

Categories / Delphi / Examples

 

[] Kes, kopyala, yapştır

Codec By GeNiUS ! genius@turkiye.com Kesme, Kopyalama ve Yapıştırma işlemlerini, Klavye kullanılarak yapmak oldukça kolaydır. Bu işlemler menü elemanları vasıtasıyla da yapılabilir. Şayet bileşen, bu komutları aldığında ne yapacağını biliyorsa, Windows mesajlarını kullanmak en uygun hareket tarzıdır. Kesme; if GetFocus <> 0 then { Seçili bir pencere varmı? } SendMessage( GetFocus, WM_CUT, 0, 0 Kopyalama; if GetFocus <> 0 then { Seçili bir pencere varmı? } SendMessage( GetFocus, WM_COPY, 0, 0 Yapıştırma; if GetFocus <> 0 then { Seçili bir pencere varmı? } SendMessage( GetFocus, WM_PASTE, 0, 0);