Как в компоненте 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;
|
|
