Ich habe mich nochmal im Forum umgesehen und habe eins gefunden, was garnicht so schwer scheint:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
X, Y: Integer;
begin
Canvas.Handle := GetWindowDC(0);
try
X := Trunc((Form1.Width-Form1.ClientWidth) div 2);
Y := Trunc((Form1.Height-Form1.ClientWidth) -X);
Image1.Picture.Bitmap.Width := Form1.ClientWidth;
Image1.Picture.Bitmap.Height:= Form1.ClientHeight;
Image1.Picture.Bitmap.PixelFormat := pfDevice;
BitBlt(Image1.Picture.Bitmap.Canvas.Handle, -Form1.Left+X, -Form1.Top+Y, Pred(Form1.ClientWidth), Pred(
Form1.ClientHeight), Canvas.Handle, Form1.Left,
Form1.Top, Image1.Picture.Bitmap.Canvas.CopyMode);
finally
ReleaseDC(0, Canvas.Handle);
end;
end;
Das Problem ist, das ich in "BitBlt" nicht die richtigen Zahlen eingesetzt habe...
Ich möchte nur den in mein TImage "übernehmen", den die Form bedeckt.
Könnt ihr mir helfen?
