array of TImage wird nicht angezeigt!

[bixi400]

Hi!

Ich habe ein array of TImage erstellt aber die Bilder werden nicht angezeigt!

Delphi-Quellcode:

...
var
  Form1: TForm1;
  Bilder: array of TImage;
... 
  SetLength(Bilder,1);
  Bilder[0] := TImage.Create(Form1);
  Bilder[0].Picture.LoadFromFile('C:\test.jpg');
  Bilder[0].Top := 10;
  Bilder[0].Left :=10;
  Bilder[0].Height := 10;
  Bilder[0].Width :=10;

Wo ist der Fehler hab ich was vergessen? :gruebel:

[Smokey]

Du musst (egal ob du es im create schon getan hast) nochmal einen Parent zuweisen.

also Bild[0].parent := form1;

[bixi400]

Danke für die schnelle antwort!! :thuimb:

[bixi400]

Wie kann ich jetzt mach das wenn man auf ein Bild klick,
das Procedure BildKlick(Bild:Integer); aufgerufen wird
und das Bild:Integer die Nummer des Bildes ist
z.B. Wenn auf Bilder[15] geklickt wird, muss Bild = 15 sein.

[alcaeus]

1. Neue Frage => Neuer Thread.
Zu deinem zweiten Problem sage ich noch kurz was: Die Nummer kannst du nicht mitgeben, aber du kannst dir eine OnClick-Routine schreiben und diese dann dem OnClick-Ereignis zuweisen. Such mal hier nach [dp]"OnClick zuweisen"[/dp]

Greetz
alcaeus