Скачать: CL | DM;

Как сделать ScreenShot главной формы моего приложения?   Найти похожие ветки 

← →
BarlaZ   (2003-12-08 07:30) [0]

см. заголовок.

---

← →
Piople ©   (2003-12-08 07:33) [1]

Используй bitblt

---

← →
BarlaZ   (2003-12-08 07:37) [2]

А поподробней нельзя?

---

← →
Piople ©   (2003-12-08 07:41) [3]

Ну вы блин даете:) Почему я должен думать за тебя, держи лентяй!!!

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:43) [4]

WOw, работает. СПАСИБО!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c