Memo - STRG+V deaktivieren

[der_kumpel]

Moin,


wie kann man verhindern, dass per STRG+V der Inhalt der Zwischenablage ins Memo eingefügt wird?

Ich würde dies gerne selber im OnKeyDown Event machen, da ich den Text zuvor noch überprüfen möchte.

Delphi-Quellcode:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if ((Key = Ord('V')) and (ssCtrl in Shift)) then
    begin
      Clipboard.Open;
        try
          // Text filtern...
        finally
          Clipboard.Close;
        end;
    end;
end;

So wird der Text einmal gefiltert und anschließend leider nochmal komplett eingefügt.


Danke,
kumpel