Copy from the active control to the clipboard (Views: 29)
Problem/Question/Abstract: Copy from the active control to the clipboard Answer: 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; |