Mega Code Archive

 

Categories / Delphi / Examples

 

Copy from the active control to the clipboard

Use the following piece of code for this. Note: You may trigger the menu open event and enable/ disable the copy/ paste menu items depending on the type of control that is active. 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;