TCustomEdit İçin CTRL+V Yapıştır Kısayolunu İptal Etmek

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
RamazanG
Üye
Mesajlar: 73
Kayıt: 16 Tem 2010 03:38

TCustomEdit İçin CTRL+V Yapıştır Kısayolunu İptal Etmek

Mesaj gönderen RamazanG »

Makale: Zarko Gajic
Çeviri: Ramazan Gülbahar.

TCustomEdit İçin CTRL+V Yapıştır Kısayolunu İptal Etmek

Bazan klavye kısayollarını iptal etmek isteriz, Kopyalamak (CTRL+C) ya da Yapıştır (CTRL+V) gibi.
Örneğin bir veri tabanı uygulamasında kullanıcının yeni şifre belirlemesi için iki tane editbox koyarız, birinin başlığı yeni şifre değerinin başlığı yeni şifreyi tekrar girindir, yeni şifreyi tekrarla editboxına kopyala yapıştır kısayolunu iptal ederek kullanıcın yanlış şifre girip hata yapma olasılığını ortadan kaldırırız.
Yeni şifre girin editbox’ında kopyalama, Yeni şifreyi tekrar girin editbox’ında yapıştır kısayolunu iptal etmek en mantıklısıdız.

Bu uygulamayı TEdit (ya da TMemo genelliklede TCustomEdit) için OnKeyDown olayına bir handle atayarak yapabiliriz.

Kod: Tümünü seç

uses Clipbrd, ...
 
 { CTRL + V ("Yapıştır") Kullanılmaz yap: handles Edit1.OnKeyDown

 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState) ;
 begin
   if ((ssCtrl in Shift) AND (Key = ord('V'))) then
   begin
     if Clipboard.HasFormat(CF_TEXT) then ClipBoard.Clear;
 
     Edit1.SelText := '"Yapıştır" Kullanılamaz!';
 
     Key := 0;
   end;
 end;
Kullanıcı CTRL+V tuşuna bastığı zaman “Yapıştır kullanılamaz” mesajıyla karşılaşır.
Cevapla