Windows API (94)
Windows Filesystem (41)
Windows Forms (69)
Windows Graphics (38)
Exchange Links
About this site
Copy from the active control to the clipboard
1 comments. Current rating: 
(1 votes). Leave comments and/ or rate it.
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; | ||
 |  |
|
||||||||
Comments:
