Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Problem mit Bilder laden

    Delphi
    by DeddyH, 13. Apr 2008
  Dialoge in einem Timer-Event finde ich irgendwie suboptimal.
• Forum: Multimedia

  Re: Problem mit Bilder laden

    Delphi
    by DeddyH, 13. Apr 2008
  Aber da steh ich zu :P
• Forum: Multimedia

  Re: Problem mit Bilder laden

    Delphi
    by DeddyH, 13. Apr 2008
  Und dann erstellen wir uns eine Funktion, die das für uns übernimmt (kann ja auch ein anderer Pfad sein) und eine weitere, die uns mitteilt, ob das Laden funktioniert hat ;)
• Forum: Multimedia

  Re: Problem mit Bilder laden

    Delphi
    by DeddyH, 13. Apr 2008
  Noch eine Möglichkeit:procedure TForm1.Timer1Timer(Sender: TObject);
  const Bilder: array of string = ('X_Wing3.jpg','X_Wing5.jpg','X_Wing7.jpg');
  begin
  Fortschritt := Fortschritt + 1;
  Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + Bilder);
  Timer1.Enabled := Fortschritt < 3;
  end;
  
  Eine Klammer vergessen
• Forum: Multimedia

  Re: Problem mit Bilder laden

    Delphi
    by DeddyH, 13. Apr 2008
  Mit case statt der If-Abfragen wäre das Ganze aber übersichtlicher (und AFAIR auch schneller).procedure TForm1.Timer1Timer(Sender: TObject);
  const Pfad = 'C:\Dokumente und Einstellungen\Soz1L\Eigene Dateien\Eigene Bilder\';
  begin
  Fortschritt := Fortschritt + 1;
  case Fortschritt of
  1: Image1.Picture.LoadFromFile(Pfad + 'X_Wing3.jpg');
  2: Image1.Picture.LoadFromFile(Pfad +...