Google
 

Tuesday, February 12, 2008

Disable Ctrl+V shortcut pada TEdit

Terkadang anda mengiginkan agar user tidak dapat menggunakan fitur Crtl+V atatu Ctrl+C pada component yang memiliki input focus

Hal tersebut dapat dilakukan dengan cara sebagai berikut :

Misalkan kita menggunakan komponen TEdit

pastikan unit anda menggunakan class ClipBrd

uses
Clipbrd, ...

Pada event Onkeydown edit1 tuliskan perintah sebagai berikut :

//disable CTRL + V ("Paste") :: 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 := '"Paste" DISABLED!';
______Key := 0;
___end;
end;



Selamat mencoba semoga berhasil.....

No comments: