Bild in eine zufällige TImage laden...

[Jan]

hmm.. naja, newbie? mit 150 posts?
egal, also das funzt folgendermaßen:

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    BitBtn1: TBitBtn;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  picarray:array[0..8] of timage;

implementation

{$R *.dfm}




procedure TForm1.FormCreate(Sender: TObject);
begin
  picarray[0]:=image1;
  picarray[1]:=image2;
  picarray[2]:=image3;
  picarray[3]:=image4;
  picarray[4]:=image5;
  picarray[5]:=image6;
  picarray[6]:=image7;
  picarray[7]:=image8;
  picarray[8]:=image9;
  randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,s:integer;
    bild:tbitmap;
begin
bild:=tbitmap.Create;
bild.loadfromfile('C:\Dokumente und Einstellungen\Jan\Eigene Dateien\Eigene Bilder\Artwork\Kamara.bmp');
s:=random(9);
picarray[s].picture.Bitmap :=bild;
bild.free;
end;

end.

ich habe 9 timages auf dem form plaziert, und 1 Button.
wenn du nicht weisst, wie das mit den resourcen geht, dann versuch es bitte erstmal und frag dann nochmal nach, das was da oben steht ist auch alles grad mal so ohne vorwissen, ist echt einach herauszufinden!
Gruß
Jan