Ignore Ctrl+V keys di TMemo

Ignore Ctrl+V keys in Memo, mungkin bisa di berguna dalam suatu pembuatan program dalam Borland Delphi, berikut ini menggunakan TMemo (Memo1) dan masukan COde Program dalam Properties Event OnKeyDown.

Berikut Contoh COde Programnya :

Prevent users from pasting text in your Memo.
// Tambahkan Pada Uses
uses Clipbrd;
...

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((Key=Ord('V'))and(ssCtrl in Shift)) then
  begin
    Clipboard.Clear;
    Memo1.SelText:='Delphi http://olvandra.blogspot.com';
    Key:=0;
  end;
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^