Screenshot aber wie?!

[Skrenkovic]

So.... ich habs ma gekürzt...

Code:

R.TopLeft := Form1.BoundsRect.TopLeft;
  R.BottomRight := Form1.BoundsRect.BottomRight;
  MyDC := GetDC(Self.Handle);
  MyBitmap := TBitmap.Create;
  MyBitmap.Width := R.Right - R.Left;
  MyBitmap.Height := R.Bottom - R.Top;

  try
    MyBitmap.LoadFromDevice(MyDC);
    MyBitmap.SaveToFile('FormsAppearance.bmp');
  finally
    ReleaseDC(Self.Handle, MyDC);
    FreeAndNil(MyBitmap);
  end;

funktioniert ... is zwar kein png aber ... okay

wenn ihr mir jetzt verraten würdet wie ich ca 2 fingerbreit unten das bild kürzen könnte (weil ich nicht das ganze fester bracuhe sondern von der höhe nur ca 2/3
währe echt super von euch .... sry meine unwissenheit

[Popov]

Wie schon erwähnt

Delphi-Quellcode:

R := Form1.BoundsRect;

macht in einer Zeile was du in zwei machst.