Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hugo1990,
21. Jun 2007
komisch ich habe jetzt das ganze nochmal neu gemacht also neue Anwendung und dann jede Procedure erstellt und rüber kopiert und jetzt geht es, der Fehler tritt nicht mehr auf.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hugo1990,
21. Jun 2007
Ok ich habe jetzt rausgefunden, wie das mit der TComponentList geht, aber der Fehler kommt immer noch.
for i:=0 to Anzahl-1 do
begin
{x,y festlegen}
Bilderup.Add(TImage.Create(Form1));
with (Bilderup.Items as TImage) do
begin
Picture.LoadFromFile(...);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hugo1990,
21. Jun 2007
@ helmi
jop, das einzige was anders ist, ist das Parent
@ hoika
Erzeugung:
SetLength(Bilderup,Files.Count-2);
SetLength(Bilderupname,Files.Count-2);
for i:=low(Bilderup) to high(Bilderup) do
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hugo1990,
21. Jun 2007
@Helmi
Ich habe mir dein Beispiel angeguckt, aber wenn ich das so in mein programm schreibe tritt der Fehler trotzdem auf.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hugo1990,
21. Jun 2007
Wie funktioniert den das mit der TComponentList genau?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hugo1990,
20. Jun 2007
Also die Grenzen kommen im Endeffekt wieder auf das selbe, daran liegt es nicht und auch mit Self statt Form1 geht es nicht.
Auch das mit dem low geht nicht, aber der fehler tritt ja auch nicht beim ersten sondern beim letzten auf, da der Fehler, wenn ich die obere Grenze auf high(Bilderupname)-1 setzte, nicht kommt. nur ist dann das letzte Label noch da.
Edit: Ok der Fehler muss wo anders...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hugo1990,
20. Jun 2007
Ich habe ein Problem und zwar wenn ich folgende TLabelsBilderupname:array of TLabel; die ich so SetLength(Bilderupname,Files.Count-2);
for i:=1 to Files.Count-2 do
begin
Bilderupname:=TLabel.Create(Form1);
Bilderupname.Caption:=IntToStr(i)+'.jpg';
Bilderupname.AutoSize:=True;
...
end;
erzeugt habe so