Thema: Delphi TImage erzeugen

Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

Re: TImage erzeugen

  Alt 6. Apr 2005, 21:08
Delphi-Quellcode:
[...]
private
  fImages: Array[0..5] of TImage;
[...]
var LCount: Integer;
begin
  for LCount := 0 to length(fImages) - 1 do
  begin
    fImages[LCount] := TImage.Create(nil);
    fImages[LCount].Parent := Self; //Self also das Form
    fImages[LCount].SetBounds(Links, Oben, Bildbreite, Bildhöhe);
    fImages[LCount].LoadFromFile('Dateiname.bmp');
  end;
und wenn die bilder nicht mehr benötigt werden natürlich noch
fImages[LCount].Free; also das für jedes bild (bilder müssen ja wieder freigegeben werden
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat