[elfer]

Подскажите пожалуйста как можно сфотографировать форму по нажатию клавиши и сохранить на диск

[Страдалецъ]

Взять фотоаппарат, одеться в форму, сфотографироваться, присоединить к компу фотик и записать файл на диск.

[elfer]

Умно. А реально

[glaZZ]

Попробуй вот так:
Получение снимка экрана

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure ScreenShot(Bild: TBitMap); var c: TCanvas; r: TRect; begin c := TCanvas.Create; c.Handle := GetWindowDC(GetDesktopWindow); try r := Rect(0, 0, Screen.Width, Screen.Height); Bild.Width := Screen.Width; Bild.Height := Screen.Height; Bild.Canvas.CopyRect(r, c, r); finally ReleaseDC(0, c.Handle); c.Free; end; end;

Сохранение в файл:

Код:

1	Bild.SaveToFile('ИмяФайла');

[Nyctos Kasignete]

glaZZ, если я правильно понимаю, нужен не снимок всего экрана, а только формы.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); var   bmp: TBitmap; begin   bmp := TBitmap.Create;   try     bmp.Width := Width;     bmp.Height := Height;     BitBlt(bmp.Canvas.Handle, 0, 0, Width, Height,            GetDC(GetDesktopWindow), Left, Top, SRCCopy);     bmp.SaveToFile('D:\form.bmp');   finally     bmp.Free;   end; end;

[elfer]

Большое спасибо