Einzelnen Beitrag anzeigen

fuisch

Registriert seit: 26. Dez 2004
18 Beiträge
 
Delphi 6 Personal
 
#1

OnClick Prozeduren für zur Laufzeit erstellte Bilder

  Alt 2. Apr 2005, 19:35
Hallo alle!

Folgendes Problem:
Ich habe mehrere (je nach Benutzereingabe verschieden viele) Bilder, die zur Laufzeit erzeugt werden. Jetzt brauche ich zu jedem dieser Bilder eine Prozedur die beim anklicken vom diesem ausgelöst wird und der gleichzeitig noch der Dateiname des Bildes mitgegeben wird. Die Bilder werden wie folgt erzeugt:

Delphi-Quellcode:
for n:= 0 to Dateien.Count - 1 do begin
  if (n MOD 8 = 0) AND (n<>0) then begin
    reihe:=reihe+1;
    bildnummer:=0;
  end;
  Image[n] := TImage.Create(Frame21);
  Image[n].Left := bildnummer*95+8;
  Image[n].Top := reihe*110+8;
  Image[n].Height := 72;
  Image[n].width := 87;
  Image[n].Parent := Frame21;
  Image[n].Stretch := true;
  Image[n].Proportional := true;
  Image[n].Picture.LoadFromFile(Dateien[n]);
  bildnummer:=bildnummer+1;
end;
Hoffe es kann jemand helfen und vor allem nicht allzu tiefgehend wenn möglich, hab noch nicht so viel Erfahrung mit Delphi.

Nochmal eine Entschuldigung für den Thread in dem ich wegen den Vorschaubildern gefragt hatte und nimmer geschaut hab. Das Problem war eine verkackte Windows 98 Installation. Hab inzwischen XP drauf und alles klappt einwandfrei.
  Mit Zitat antworten Zitat