BitBld und Anzeige in Image

[Neutral General]

Hallo,

Die Zeile

Image2.Picture.Bitmap := bmp2;

stimmt schon. Im Setter des Bitmaps wird das zugewiesene Bitmap assigned.
Daran liegts nicht.

Ich tippe mal, dass es so gehen könnte:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var breite, hoehe: integer;
begin
  breite := bmp1.Width-5;
  hoehe := bmp1.Height-7;

  // Maße von bmp2 setzen
  bmp2.Width := breite;
  bmp2.Height := hoehe;

  BitBlt(bmp2.Canvas.Handle,0,0,breite,hoehe,bmp1.Canvas.Handle,0,0,SRCCOPY);
  Image2.Picture.Bitmap := bmp2;
end;