Пользователь

Добро пожаловать,
Регистрация или входРегистрация или вход
Потеряли пароль?Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная Главная
АккаунтАккаунт
ПользователиПользователи
ОпросыОпросы
Поиск по сайтуПоиск по сайту
Новости RSSНовости RSS
ФорумФорум
Отправить другуОтправить другу
Связаться с намиСвязаться с нами


Книги по программированиюКниги
Учебники и руководстваСамоучители
Каталог софтаКаталог софта
Исходники программИсходники
КомпонентыКомпоненты
Обработки 1СОбработки 1С
CMS-центрCMS-центр
Шаблоны для сайтовШаблоны сайтов
Наборы иконокНаборы иконок
Статьи и обзорыСтатьи и обзоры
Вопросы и ответыВопросы и ответы
СкриптыСкрипты
Статьи участниковНетематичное

Ваше мнение
Оцените дизайн сайта

Супер
Симпатично
Пойдет
Ничего хорошего
Просто клиника


Результаты
Другие опросы

Всего голосов: 890
Комментарии: 2
Error: Incorrect password!
Наши партнеры



Статистика




Programming books  Download software  Documentation  Scripts  Content Managment Systems(CMS)  Templates  Icon Sets  Articles  Contacts  Voting  Site Search




Статьи и обзоры

ГлавнаяЛучшиеПопулярныеСписокДобавить


Копирование в буфер обмена
Статьи по объектно-ориентированному программированию на языке Pascal и в среде программирования Delphi. Примеры работающего кода, тексты компонентов и классов, советы мастеров. Две вспомогательных процедуры.



Код
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;


    Разместил: admin | | Прочитано: 15329 | | Распечатать



Нет комментариев. Почему бы Вам не оставить свой?
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.
Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском


.


Статьи и обзоры Delphi и TurboPascal Копирование в буфер обмена Две вспомогательных процедуры Кодprocedure CopyButtonClick Sender TObject begin ActiveControl TMemo then CopyToClipboard TDBMemo