[gelöst] Button, Groupbox etc. fotografieren/Screenshoot

[Go2EITS]

@Droppi
Da komme ich nicht ganz mit. Ist es da nicht leichter ein Screenshoot Progamm zu nehmen?
Ich habe eine Image so groß wie ein Button auf die Form geklatscht und ein Button
drübergelegt und mit image1.save.to:='C:\image.tmp' oder so ähnlich, hab es schon gelöscht, versucht
die Image zu speichern. NIX passierte. Der Profi wird lachen. Ich gleich mit, weil ich ahnte,
das dies nicht funktioniert.


Spass beiseite:
Hier habe ich mal ne Prozedur aus der DP:
http://www.delphipraxis.net/internal...ght=image+save

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var DCDesk: HDC; // hDC of Desktop
  bmp: TBitmap;
begin
  {Create a bitmap}
  bmp := TBitmap.Create;

  {Set a bitmap sizes} 
  bmp.Height := Screen.Height;
  bmp.Width := Screen.Width;

  {Get a desktop DC handle - handle of a display device context}
  DCDesk := GetWindowDC(GetDesktopWindow);

  {Copy to any canvas, here canvas of an image}
  BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
         DCDesk, 0, 0, SRCCOPY);

  {Save the bitmap}
  bmp.SaveToFile('C:\ScreenShot.bmp');

  {Release desktop DC handle} 
  ReleaseDC(GetDesktopWindow, DCDesk);

  {Release a bitmap}
  bmp.Free;
end;

Klappt Super. Aber nur für den ganzen Screen.

So. [Bin Anfänger, Vorsicht!]
Wie kann ich mit bitBlt ein Button eine Groupbox etc. die angezeigt wird, kopieren.
Das Konverten als jpg funktioniert bei mir schon.