Wie kann ich durch Mausklick ein Bild auswählen?

[cello]

Durch einen Button kann man bis zu 10 Bilder erscheinen lassen, die auch durch Mausklick bewegt werden können. Nun möchte ich, dass sich nur das Bild bewegt, was ich auch ausgewählt habe, aber mir fehlt die idee zur Umsetzung. Habe mir überlegt die Koordinaten vom Mausklick zu überprufen und dann zu schauen, ob da ein Image liegt.

[Bummi]

Wenn Du mit Bildern TImages meinst die Du erzeugst, oder sichtbar schaltest kannst Du deren OnMouseDown und OnMouseMove Events verwenden.
Einfach allen Images dieselben Events zuweisen.

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    FX, FY :Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.AllImagesMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   FX := X;
   FY := Y;
end;

procedure TForm6.AllImagesMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
   if ssLeft in Shift then
     begin
      TImage(Sender).Left :=  TImage(Sender).Left - FX + X ;
      TImage(Sender).Top  :=  TImage(Sender).Top  - FY + Y ;
     end;
end;