Как в компоненте TMemo перехватить нажатие Ctrl-V и вставить специальный текст не из буфера обмена (clipboard)?

Вопрос:

Как в компоненте TMemo перехватить нажатие Ctrl-V и вставить специальный текст не из буфера обмена (clipboard)?

Ответ:

См. пример.

Пример:

uses ClipBrd;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if ((Key = ord('V')) and (ssCtrl in Shift)) then
    begin
      if Clipboard.HasFormat(CF_TEXT) then 
        ClipBoard.Clear;
      Memo1.SelText := 'Delphi is RAD!';
      key := 0;
    end;
end;