Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Копирование в буфер обмена

01.01.2007
procedure CopyButtonClick(Sender: TObject);
begin
 
if ActiveControl is TMemo then
   
TMemo(ActiveControl).CopyToClipboard;
 
if ActiveControl is TDBMemo then
   
TDBMemo(ActiveControl).CopyToClipboard;
 
if ActiveControl is TEdit then
   
TEdit(ActiveControl).CopyToClipboard;
 
if ActiveControl is TDBedit then
   
TDBedit(ActiveControl).CopyToClipboard;
end;
 
procedure
PasteButtonClick(Sender: TObject);
begin
 
if ActiveControl is TMemo then
   
TMemo(ActiveControl).PasteFromClipboard;
 
if ActiveControl is TDBMemo then
   
TDBMemo(ActiveControl).PasteFromClipboard;
 
if ActiveControl is TEdit then
   
TEdit(ActiveControl).PasteFromClipboard;
 
if ActiveControl is TDBedit then
   
TDBedit(ActiveControl).PasteFromClipboard;
end;
 

https://delphiworld.narod.ru/

DelphiWorld 6.0