Delphi mit TImage überfordert?

[Daniel]

Ansonsten kannst Du die Bilder in eine TImageList legen, die ist eigentlich genau dafür da und sollte in der Lage sein, die Ressource besser zu verwalten.

[Union]

Du könntest Die Grafiken auch erst zur Laufzeit erzeugen. Das geht vielleicht elegant auch in einer Schleife, falls sie regelmäßig angeordnet sind.

[Magic94]

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

[Sir Rufo]

Hoffentlich fliegt dir das Form1 nicht um die Ohren

Wenn du das in einer Methode von TForm1 aufrufst, dann solltest du das gegen Self austauschen