Ich habe mehrere Images und eine Paintbox und will das man beim Drag&Drop statt des Mauszeigers das gezogene Image sieht. Deshalb erstelle ich ein neues Image dem ich das Picture des angeklickten Pictures zuweise und will es dann mit der Maus bewegen.
Hier der Code um das neue Image zu erstellen:
Delphi-Quellcode:
procedure TForm1.ImageXMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var ImageXCopy:TImage;
begin
ImageXCopy:=TImage.Create(TImage(Sender));
ImageXCopy.Left:=x;
ImageXCopy.Top:=y;
ImageXCopy.Picture.Assign(TImage(Sender).Picture);
ImageXCopy.BringToFront;
end;
Aber das neue Image wird nicht angezeigt. Woran könnte es liegen? Ich habe bisher noch nie Objekte kopiert.
mfG Tanadirian