Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.02.2011, 08:50   #1
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию Не работает как надо аналог PrintScreen

Вообщем проблема в следующем, делаю программно скрин экрана.но почемуто в этот скрин не попадает вторая форма на которой расположен рисунок. Но форма эта прозрачная (transparentcolor = true) так что виден получается только рисунок. если у формы выставить transparentcolor = false то она "заскринится". Если нажать printscreen на клаве то скринится всё подряд. Как можно и мне сделать "полный скрин"
Вложения
Тип файла: rar Screen.rar (386.9 Кб, 11 просмотров)
SERG1980 вне форума Ответить с цитированием
Старый 28.02.2011, 13:34   #2
x128
Форумчанин
 
Регистрация: 03.02.2010
Сообщений: 178
По умолчанию

Попробуй так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
const
  CAPTUREBLT = $40000000;
var 
  BM:TBitMap;
  DC: THandle;
begin
 BM:=TBitMap.Create;
 BM.Width:=Screen.Width;
 BM.Height:=Screen.Height;
 DC:=GetDC(0);
 BitBlt(BM.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
 DC, 0, 0, SRCCopy or CAPTUREBLT);
 image1.Picture.Assign(BM);
 BM.Free;
 ReleaseDC(0, DC);
end;
x128 вне форума Ответить с цитированием
Старый 28.02.2011, 13:59   #3
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Спасибо всё работает!!!
SERG1980 вне форума Ответить с цитированием
Старый 14.05.2011, 19:26   #4
OlegPrograming5
Пользователь
 
Регистрация: 12.01.2009
Сообщений: 42
Лампочка

Спасибо, интересный метод! На 5+
OlegPrograming5 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
функция eoln() не работает как надо Cannibal Помощь студентам 4 30.11.2010 12:58
Что то не работает как надо... rezak91 Паскаль, Turbo Pascal, PascalABC.NET 9 24.05.2010 22:27
Таймер обратного отсчета работает не так как надо.. нужно найти ошибку в коде... Человек_Борща Общие вопросы Delphi 10 13.04.2010 20:06
Прога не работает как надо - код С NightManiak Помощь студентам 2 21.01.2010 08:15
С#.NET. Маленькая проблемка - условие не работает так , как надо Ksy Общие вопросы .NET 11 24.12.2009 21:07