|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.540 Beiträge
Delphi 11 Alexandria
|
Re: Problem mit Bilder laden
13. Apr 2008, 10:06
Noch eine Möglichkeit:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
const Bilder: array[1..3] of string = ('X_Wing3.jpg','X_Wing5.jpg','X_Wing7.jpg');
begin
Fortschritt := Fortschritt + 1;
Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + Bilder[Fortschritt]);
Timer1.Enabled := Fortschritt < 3;
end;
[edit] Eine Klammer vergessen [/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|