Drag & Drop -- Source genau bestimmen

[Tanadirian]

Ich habe eine Paintbox und mehrere Images. Ich ziehe die Images auf die Paintbox und füge sie mit folgendem Code ein:

Delphi-Quellcode:

procedure TForm1.PaintBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
 if Source is TImage then
  BitBlt(Paintbox1.Canvas.Handle,x,y,Image2.Height,Image2.Width,Image2.Canvas.Handle,0,0,SRCCOPY);
end;

Das Beispiel war jetzt für Image2, ich will aber wissen ob es irgendwie möglich ist die Prozedur allgemein zu schreiben, damit sie für alle Images gilt die ich auf die Paintbox ziehe.
Source liefert mit nur TImage zurück aber nicht welches Image ich auf die Paintbox gezogen habe.

mfG Tanadirian

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

[Tanadirian]

Vielen Dank, das erste Beispiel funzt super.

mfG Tanadirian