Hi, danke für den Tipp..hab es geschafft allerdings ist das Problem, dass sich so immer nur ein Bild bewegen
lässt...
Delphi-Quellcode:
procedure TForm1.dragdrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source is TImage then
begin
TImage(Source).Left := x;
TImage(Source).Top := y;
TImage(Source).Parent := TWinControl(Sender);
end
end;
procedure TForm1.dragover(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
accept := (source is TImage);
end;
procedure TForm1.HexenMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
If Button=mbleft Then Hexen2.BeginDrag(false);
end;
so sieht mein quelltext momentan aus...bei jedem Bild habe ich für MouseDown - HexenMouseDown...
anders geht es auch nicht,es wird immer für alle die gleiche procedure gewählt - automatisch.
gibt es dafür irgend eine andere lösung?