Пользователь
Добро пожаловать,
Регистрация или вход
Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная
Аккаунт
Пользователи
Опросы
Поиск по сайту
Новости RSS
Форум
Отправить другу
Связаться с нами
Книги
Самоучители
Каталог софта
Исходники
Компоненты
Обработки 1С
CMS-центр
Шаблоны сайтов
Наборы иконок
Статьи и обзоры
Вопросы и ответы
Скрипты
Нетематичное
Ваше мнение
Хотите ли вы стать модератором раздела сайта или форума? (Желающие пишем админу.)
Да, конечно.
Только за большие деньги.
Нет, ни за что.
Ну может в будущем...
Результаты
Другие опросы
Всего голосов:
650
Комментарии:
2
Наши партнеры
Статистика
Статьи и обзоры
Главная
Лучшие
Популярные
Список
Добавить
Копирование в буфер обмена
Две вспомогательных процедуры.
Код
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
| | Прочитано: 16967 | |
Смотрите также связанные новости
30.11.2024 -
Кроссворд на Delphi
30.11.2024 -
Рождение, жизнь и гибель формы
30.11.2024 -
Воспроизводим Flash-файл в своем приложении
30.11.2024 -
Работа с потоками в Delphi
30.11.2024 -
SQL-запросы в Delphi
30.11.2024 -
BlobField как Bitmap
30.11.2024 -
Запись и чтение чисел в BLOB-поле
Нет комментариев. Почему бы Вам не оставить свой?
Вы не можете отправить комментарий анонимно, пожалуйста
войдите или зарегистрируйтесь
.
Внимание! Если у вас не получилось найти нужную информацию, используйте
рубрикатор
или воспользуйтесь
поиском
.
Статьи
и
обзоры
Delphi
и
TurboPascal
Копирование
в
буфер
обмена
Две
вспомогательных
процедуры
Кодprocedure
CopyButtonClick
Sender
TObject
begin
ActiveControl
TMemo
then
CopyToClipboard
TDBMemo