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. ^_^
Leave a Reply
Silahkan Tulis Komentar Anda, Sopan dan Berwibawa