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(Nildo
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:
user profile iconTropby hat folgendes geschrieben Zum zitierten Posting springen:

Delphi-Quelltext
1:
2:
with TImage.Create(Nildo
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