[elfer]

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

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

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

[elfer]

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

[glaZZ]

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

Код:

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;

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

Код:

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

[Nyctos Kasignete]

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

Код:

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]

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