Bild bewegen, wie Name übermitteln?

[nahpets]

Mach Dir doch im Formular eine Eigenschaft vom Typ TImage.

Delphi-Quellcode:

 ...
   fAktuellesBild : TImage;
...

procedure TForm1.Image1Click(Sender: TObject);
begin
    if Sender is TImage then begin
        fAktuellesBild := TImage(Sender);
        Label1.Caption := fAktuellesBild.Name; // Bild Name merken bei Click
  end;
end; 

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  fAktuellesBild .Left:= ScreenToClient(Mouse.CursorPos).x,
  fAktuellesBild .Top:= ScreenToClient(Mouse.CursorPos).y;
end;

(Nur hingedaddelt und nicht getestet.)