![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
мне необходимо скопировать часть формочки в файл, а точнее компоненту abcPage, вместе со всем ее содержимым... Как это сделать?
|
|
#2
|
|||
|
|||
|
Получаешь канвас экрана:
var c: TCanvas; begin c := TCanvas.Create; c.Handle := GetDC(GetWindow(GetDesktopWindow, GW_OWNER)); а дальше уже раздерешься... |
|
#3
|
||||
|
||||
|
Код:
var
dc: hdc;
Bmp: TBitmap;
begin
dc:=GetWindowDC(GetDesktopWindow);
try
Bmp:=TBitmap.Create;
try
Bmp.Width:=Screen.Width;
Bmp.Height:=Screen.Height;
BitBlt(Bmp.Canvas.Handle,0,0,Screen.Width,Screen.Height,DC,0,0,SRCCOPY);
Bmp.SaveToFile('c:\tmp\1.bmp');
finally
Bmp.Free;
end;
finally
ReleaseDC(GetDesktopWindow, dc);
end;
Image1.Picture.LoadFromFile('c:\tmp\1.bmp');
end;Дальше сам... |