Habe es jetzt gelöst bekommen:
Zitat:
for i := 0 to 3 do
for j := 1 to 8 do
for k := 1 to 4 do
begin
Bild := TSeqButton.Create(Form1);
Bild.Parent := Form1;
Bild.Visible := True;
Bild.AutoSize := True;
Bild.Name := 'Image'+IntToStr(l);
Bild.Picture := imSaveOff.Picture;
Bild.Hint := 'off';
if i = 0 then Bild.Left := 48 + i*128 + k*32;
if i = 1 then Bild.Left := 56 + i*128 + k*32;
if i = 2 then Bild.Left := 64 + i*128 + k*32;
if i = 3 then Bild.Left := 72 + i*128 + k*32;
Bild.Top := -10 + j*40;
Inc(l);
end;
Damit lassen sich die Bilder perfekt Anordnen.
TSeqButton ist von TImage abgeleitet. Sollen Buttons für einen Sequenzer werden, daher noch ein paar mehr Funktionen.
Danke für die Hilfe
