Zitat von
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.
Nein das funktioniert nicht, denn man muss vor dem CopyToClipBoard noch SelectAll
ausführen.
Zudem ist TRichEdit, TEdit, TMemo usw. von TCustomEdit abgeleitet, d.h
es geht einfacher so:
Delphi-Quellcode:
if (ActiveControl is TCustomEdit) then
begin
TCustomEdit(ActiveControl).Selectall;
TCustomEdit(ActiveControl).CopyToClipboard;
end;