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