FindComponent für TScrollBox

[F.W.]

Im OnShow wird alles erzeugt:

Delphi-Quellcode:

procedure TMain.FormShow(Sender: TObject);
var
 X, Y, I: Integer;
 SB: TScrollBox;
 Img: TImage;
begin
 WindowState := wsMaximized;
 X := 10;
 Y := 65;
 for I := 1 to 8 do begin
 {-----------ListBoxes-------------}
     SB := TScrollBox.Create(Main);
     SB.Name := 'SB'+IntToStr(I);
     SB.Left := X;
     SB.Top := Y;
     SB.Width := 243;
     SB.Height := 300;
     SB.Parent := Main;
 {-----------Images----------------}
//     Img := TImage.Create(FindComponent('SB'+IntToStr(I)));
     Img := TImage.Create(SB);
     Img.Left := 0;
     Img.Top := 0;
     Img.Width := 200;
     Img.Height := 250;
     Img.Parent := SB;
     Img.Tag := I;
     Img.Canvas.Brush.Color := clwhite;
     Img.AutoSize := True;
     Img.OnDragOver := ImgsDragOver;
     Img.OnDragDrop := ImgsDragDrop;

     Inc(X, 253);

     if I = 4 then begin
        X := 10;
        Inc(Y, 340);
     end;
 end;
end;

Und später wenn man auf einen Button klickt, wird auf sie zugegriffen.

Das Bilderladen geht übrigens, allerdings wird das auch über Drag&Drop per TImage(Source) erreicht.