| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать ScreenShot главной формы моего приложения? [D6, Win2k]
BarlaZ © (2003-12-08 07:30:00)
см. заголовок.
BarlaZ (2003-12-08 07:43:00) [1]
WOw, работает. СПАСИБО!
Piople (2003-12-08 07:41:00) [2]
Ну вы блин даете:) Почему я должен думать за тебя, держи лентяй!!!
procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
DC: HDC;
begin
bmp := TBitmap.Create;
bmp.Height := Form1.Height;
bmp.Width := Form1.Width;
DC := GetWindowDC(Form1.Handle);
bitblt(bmp.Canvas.Handle, 0, 0, Form1.Width, Form1.Height, DC, 0, 0,SRCCOPY);
ReleaseDC(Form1.Handle, DC);
Image1.Picture.Bitmap := bmp;
bmp.free;
end;
Не забудь поместить на форму Image.
BarlaZ (2003-12-08 07:37:00) [3]
А поподробней нельзя?
Piople (2003-12-08 07:33:00) [4]
Используй bitblt
| |
