Fehler bei Tasten-Druck

[Sharky]

Zitat:

Zitat von cylon

Kann mir dann mal jemand sagen, was an dem Code falsch ist, den ich zum Download gestellt hab???? :stupid:

Hai cylon,

versuche es mal so:

Delphi-Quellcode:

procedure TFormZero.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = vk_down then
    begin
      Aktiv := Aktiv + 1;
      if (Aktiv = 6) then Aktiv := 1;
      case Aktiv of
          1:  begin
                ImageNS.Picture.LoadFromFile('Graphiken\newgame_a.bmp');
                ImageB.Picture.LoadFromFile('Graphiken\beenden.bmp');
              end;
          2:  begin
                ImageSL.Picture.LoadFromFile('Graphiken\loadgame_a.bmp');
                ImageNS.Picture.LoadFromFile('Graphiken\newgame.bmp');
              end;
          3:  begin
                ImageO.Picture.LoadFromFile('Graphiken\options_a.bmp');
                ImageSL.Picture.LoadFromFile('Graphiken\loadgame.bmp');
              end;
          4:  begin
                ImageC.Picture.LoadFromFile('Graphiken\credits_a.bmp');
                ImageO.Picture.LoadFromFile('Graphiken\options.bmp');
              end;
          5:  begin
                ImageB.Picture.LoadFromFile('Graphiken\beenden_a.bmp');
                ImageC.Picture.LoadFromFile('Graphiken\credits.bmp');
              end;
      end;
    end;
 if key= vk_up then
    begin
      Aktiv := Aktiv - 1;
      if (Aktiv = 0) then Aktiv = 5;
      case Aktiv of
          1:  begin
                ImageNS.Picture.LoadFromFile('Graphiken\newgame_a.bmp');
                ImageB.Picture.LoadFromFile('Graphiken\loadgame.bmp');
              end;
          2:  begin
                ImageSL.Picture.LoadFromFile('Graphiken\loadgame_a.bmp');
                ImageNS.Picture.LoadFromFile('Graphiken\options.bmp');
              end;
          3:  begin
                ImageO.Picture.LoadFromFile('Graphiken\options_a.bmp');
                ImageSL.Picture.LoadFromFile('Graphiken\credits.bmp');
              end;
          4:  begin
                ImageO.Picture.LoadFromFile('Graphiken\credits_a.bmp');
                ImageC.Picture.LoadFromFile('Graphiken\beenden.bmp');
              end;
          5:  begin
                ImageB.Picture.LoadFromFile('Graphiken\beenden_a.bmp');
                ImageC.Picture.LoadFromFile('Graphiken\newgame.bmp');
              end;
      end;
    end;
end;

[cylon]

Jo..Inzwischen hab ich nach langem Grübeln :gruebel: auch selbst den Fehler gefunden..