Einen bestimmten Bereich des Bildschirm speichern

[marabu]

Hallo,

wenn du tatsächlich nur einen Button (oder ein anderes Control) abfotografieren möchtest, dann kannst du auch so vorgehen:

Delphi-Quellcode:

function BitmapFromWinControl(wc: TWinControl): TBitmap;
begin
  Result := TBitmap.Create;
  Result.Height := wc.ClientHeight;
  Result.Width := wc.ClientWidth;
  wc.PaintTo(Result.Canvas, 0, 0);
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  with BitmapFromWinControl(Sender as TButton) do
  begin
    SaveToFile((Sender as TComponent).Name + '.bmp');
    Free;
  end;
end;

Grüße vom marabu