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

Советы » Буфер обмена » Копирование в буфер обмена

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com