Отправлен: 04.04.2005, 22:30
Вопрос задал: Вячеслав (статус: Посетитель)
Всего ответов отправлено: 2
Отвечает: Malish
Здравствуйте, Вячеслав!
Я бы делал так:
//скрыть форму с экрана (например свернуть в трэй) или сделать Visible := false
//ScreenSave - функция
procedure GetScreenImage(bmp: TBitmap);
var bmp:Tbitmap;
begin
bmp:=TBitmap.Create;
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
GetDC(GetDesktopWindow), 0, 0, SRCCopy);
end;
//Вывести форму на экран
Ответ отправил: Malish (статус: 8-ой класс)
Отправлен: 05.04.2005, 00:49
Отвечает: sir henry
Здравствуйте, Вячеслав!
Интересный вопрос. :)
Вы имеете в виду копирование экрана в рисунок?
Чтобы не видно было формы при копировании экрана необходимо форму с экрана убрать. Вы умеете прятать форму? Метод TForm.Hide Вам знаком? :)
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 05.04.2005, 06:11 Оценка за ответ: 5 Комментарий оценки: ok
