Пользователь
Добро пожаловать,
Регистрация или вход
Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная
Аккаунт
Пользователи
Опросы
Поиск по сайту
Новости RSS
Форум
Отправить другу
Связаться с нами
Книги
Самоучители
Каталог софта
Исходники
Компоненты
Обработки 1С
CMS-центр
Шаблоны сайтов
Наборы иконок
Статьи и обзоры
Вопросы и ответы
Скрипты
Нетематичное
Ваше мнение
Легко ли найти нужную информацию на сайте?
Очень просто
Нахожу почти сразу
Приходится тщательно покопаться
Почти невозможно
Не нашел (лень разбираться)
Результаты
Другие опросы
Всего голосов:
591
Комментарии:
0
Наши партнеры
Статистика
Статьи и обзоры
Главная
Лучшие
Популярные
Список
Добавить
Форма как графический объект
Рассмотрим работу с формой
Код
uses clipbrd;
procedure TShowVRML.Kopieren1Click(Sender: TObject);
var bitmap:tbitmap;
begin
bitmap:=tbitmap.create;
bitmap.width:=clientwidth;
bitmap.height:=clientheight;
try
with bitmap.Canvas do
CopyRect (clientrect,canvas,clientrect);
clipboard.assign(bitmap);
finally
bitmap.free;
end;
end;
Разместил:
admin
| | Прочитано: 21630 | |
Смотрите также связанные новости
27.11.2024 -
Кроссворд на Delphi
27.11.2024 -
Рождение, жизнь и гибель формы
27.11.2024 -
Воспроизводим Flash-файл в своем приложении
27.11.2024 -
Работа с потоками в Delphi
27.11.2024 -
SQL-запросы в Delphi
27.11.2024 -
BlobField как Bitmap
27.11.2024 -
Запись и чтение чисел в BLOB-поле
Нет комментариев. Почему бы Вам не оставить свой?
Вы не можете отправить комментарий анонимно, пожалуйста
войдите или зарегистрируйтесь
.
Внимание! Если у вас не получилось найти нужную информацию, используйте
рубрикатор
или воспользуйтесь
поиском
.
Статьи
и
обзоры
Delphi
и
TurboPascal
Форма
как
графический
объект
Рассмотрим
работу
формой
Кодuses
clipbrd
procedure
TShowVRML
Kopieren1Click
Sender
TObject
bitmap
tbitmap
begin
=tbitmap
create
width
=clientwidth
height
=clientheight
with
Canvas
CopyRect
clientrect
canvas