Hi,
ich möchte ein Bild aus einem Image per Drag&Drop in ein anderes ziehen können. Dabei weiß ich das es eine Funktion von Delphi gibt, welche ich aber nicht benutzen will.
Ich möchte gerne:
Das Bild soll wenn möglich immer am Mauszeiger sein ^^.
Soll dann von einem Image in ein anderes gelegt werden.
Wenn das Bild aus Image 1 zu Image 2 gebracht wurde, soll sich das Bild in Image 1 ändern. Hoffe ihr versteht was ich meine, vielleicht kann mir das mal jemand erklären wie das genuaer gehen soll.
Ich habe irgendwie keinen Plan wie ich weitermachen soll, Kann mir niemand weiterhelfen?
Das hier ist mal ein Auszugs des Anfangs:
Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
KoX:=Mouse.CursorPos.X;
Label1.Caption:=inttostr(KoX);
KoY:=Mouse.CursorPos.Y;
Label2.Caption:=inttostr(KoY);
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
KoX:=Mouse.CursorPos.X;
KoY:=Mouse.CursorPos.Y;
image1.Left:=KoY;
end;