Mal wieder: Copy and Paste

[alcaeus]

Delphi-Quellcode:

if (Form1.ActiveControl is TEdit) or
  (Form1.ActiveControl is TRichEdit) or 
  (Form1.AcitveControl is <anderes Control>) then
  (ActiveControl as TEdit).CopyToClipBoard;

Dies müsste eigentlich funktionieren, ist aber nicht getestet.