Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Images mit einer Funktion erstellen
Waldkauz - Do 04.06.09 20:01
Titel: Images mit einer Funktion erstellen
Hallo
Gibt es in Delphi die Möglichkeit, in einer Schleife neue Images zu erstellen?
Also in etwa so
Delphi-Quelltext
1: 2: 3: 4: 5:
| procedure XY ... var I: integer; for I:=1 to 10 do
Und eben hier den Befehl um ein neues Image zu erstellen |
oder eben anstatt in 'ner Schleife in 'nem Timer...
Tropby - Do 04.06.09 20:05
So kann du Images erstellen. Wenn du die nachher noch ändern möchtest solltest du dir vielleicht FindComponent ansehen oder ein Array von Images erstellen.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7:
| with TImage.Create(Nil) do begin parent := Form1; visible := true; LoadFromFile('c:\test.bmp'); end; |
jaenicke - Do 04.06.09 20:06
Stichwort dynamisches Erstellen von Komponenten. Den Quelltext dafür generieren dir die GExperts automatisch auf Wunsch. Beispiel:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8:
| var MyImage: TImage; begin MyImage := TImage.Create(Self); MyImage.Parent := Self; MyImage.Left := ... MyImage.Name := ... ... |
// EDIT:
Tropby hat folgendes geschrieben : |
Delphi-Quelltext 1: 2:
| with TImage.Create(Nil) do begin | |
Wenn du ein solches Beispiel gibst, solltest du unbedingt dazusagen, dass man sich da um die Freigabe selbst kümmern muss, wenn man keinen Besitzer angibt...
Sonst handelt man sich schöne Speicherlecks ein...
Dann muss man das allerdings sinnvollerweise wirklich zwischenspeichern in einem Array. Sonst kann man aber ja ohnehin schlecht darauf zugreifen.
Waldkauz - Do 04.06.09 20:10
ah cool. werds dann etwas später ausprobieren, hab jetz dann aber Training.
Melde mich später wieder
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!