Images mit einer Funktion erstellen

Waldkauz · Beiträge: 102

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 · Verfasst: 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.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

with TImage.Create(Nil) do
begin
  parent := Form1;
  visible := true;
  LoadFromFile('c:\test.bmp');
  {...}
end;

_________________
Tropby

jaenicke · Verfasst: Do 04.06.09 20:06

Stichwort dynamisches Erstellen von Komponenten. Den Quelltext dafür generieren dir die GExperts automatisch auf Wunsch. Beispiel:

markieren

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 :

markieren

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 · Beiträge: 102

ah cool. werds dann etwas später ausprobieren, hab jetz dann aber Training.
Melde mich später wieder

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme