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.