ähm, versuchs mal so:
Delphi-Quellcode:
procedure TForm1.PaintBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source is TImage then
BitBlt(Paintbox1.Canvas.Handle,x,y,TImage(Source).Height,TImage(Source).Width,TImage(Source).Canvas.Handle,0,0,SRCCOPY);
end;
Wenn das nicht hinhaut dann:
Delphi-Quellcode:
[pre]procedure TForm1.PaintBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source is TImage then
BitBlt(Paintbox1.Canvas.Handle,x,y,TImage(Sender).Height,TImage(Sender).Width,TImage(Sender).Canvas.Handle,0,0,SRCCOPY);
end;[/pre]