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

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


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

Ваше мнение
Легко ли найти нужную информацию на сайте?

Очень просто
Нахожу почти сразу
Приходится тщательно покопаться
Почти невозможно
Не нашел (лень разбираться)


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

Всего голосов: 590
Комментарии: 0

Наши партнеры



Статистика




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 | | Прочитано: 15241 | | Распечатать



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


.


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