Drag & Drop -- Source genau bestimmen

[Die Muhkuh]

ä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]