Verhindern aus einem Memo zu kopieren

[Specialwork]

Hallo dopeline,

Die einfachste Möglichkeit ist wohl folgende:

Erstelle Dir die StandardActions zum Kopieren, Ausschneiden und Einfügen. Dann ersetzte die vom Betriebssystem vorgegebenen Shortcuts, also Ctrl+X->Ausschneiden; Ctlr+C->Kopieren, Ctrl+V->Einfügen in den ActionItems.

Dann erzeuge für jede Action einen Einsprungspunkt, indem Du einen Doppelklick auf die Actionitems machst, und schreibe dort eine Kommentarzeile hinein.

Delphi-Quellcode:

procedure TForm1.EditCut1Execute(Sender: TObject);
begin
  //
end;

procedure TForm1.EditCopy1Execute(Sender: TObject);
begin
  //
end;

procedure TForm1.EditPaste1Execute(Sender: TObject);
begin
  //
end;

... und fertig !

Gruß, Tom