Советы по Delphi
Поддержка Cut Copy Paste II
Свойство формы ActiveControl позволяет вам получить ссылку на активный в данный момент элемент управления. Но не все элементы управления могут работать с буфером обмена. Если вы хотите работать только с компонентами Edit и Memo, то вот самый простой метод:
| ActiveControl.Perform( WM_COPY, 0, 0 ); |
для CopyToClipboard и:
| ActiveControl.Perform( WM_PASTE, 0, 0 ); |
для PasteFromClipboard.
Если элемент управления "не понимает" посланных сообщений, то это никак не скажется на его работе, он просто проигнорирует их.
Другим способом является проверка типа во время выполнения приложения:
| If ActiveControl Is TCustomEdit Then TCustomEdit(ActiveControl).CopyToClipboard; |
- Peter Below [000851]
