Библиотека программиста

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

Две вспомогательных процедуры.




Код
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).PasteClipboard;
If ActiveControl is TDBMemo then TDBMemo(ActiveControl).PasteClipboard;
If ActiveControl is TEdit then TEdit(ActiveControl).PasteClipboard;
If ActiveControl is TDBedit then TDBedit(ActiveControl).PasteClipboard;
end;

Опубликовано на сайте: http://www.coders-library.ru
Прямая ссылка: http://www.coders-library.ru/index.php?name=news&op=view&id=31