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