Главная страницаОбратная связьКарта сайта

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


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 World is COOL!";
    key := 0;
  end;
end;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как в компоненте TMemo перехватить нажатие Ctrl+V и вставить специальный текст не из буфера обмена", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info