Ich habe mehrere Objekte in einer Scrollbox:
Delphi-Quellcode:
procedure TForm1.FillScrollBox;
var
i: Integer;
Img: TImage;
rect: TRect;
begin
for i := 0 to 9 do
begin
Img := TImage.Create(ScrollBox1);
Img.Parent := ScrollBox1;
Img.Width := ScrollBox1.Width - 50;
Img.Left := (ScrollBox1.Width div 2) - (Img.Width div 2) - 10;
Img.Height := 150;
Img.Top := (Img.Height + 30) * i;
Img.Canvas.Brush.Color := clWhite;
Img.Canvas.Pen.Color := clBlack;
rect.Left := 0;
rect.Top := 0;
rect.Bottom := Img.Height;
rect.Right := Img.Width;
Img.Canvas.Rectangle(rect);
end;
end;
Wie kann ich nun herausfinden, welches Objekt vom Benutzer angeklickt wurde?