RichEdit - SelAttributes und Protected aufheben und setzen

[marabu]

Hallo,

das Kopieren in die Zwischenablage kannst du schneller und einfacher verhindern:

Delphi-Quellcode:

procedure TDemoForm.RichEditSelectionChange(Sender: TObject);
begin
  with Sender as TRichEdit do
    SelLength := 0;
end;

Das Einfügen aus der Zwischenablage ist unmöglich, wenn ReadOnly = True gesetzt ist. Um Screen-Shots zu verhindern musst du wohl etwas mehr Aufwand treiben.

Grüße vom marabu