ComboBox Auswahl ---> Image laden...

[flomei]

Hallo!
Ich würde nun gerne auch einmal ein kleines Spiel schreiben. Dafür möchte ich die Möglichkeit haben, dass man verschiedene Figuren / Schiffe auswählen kann.
Diese Auswahl möchte ich gerne über eine ComboBox treffen lassen. Nun habe ich bereits folgenden Code im OnSelect der ComboBox stehen:

Delphi-Quellcode:

procedure TMainForm.ChangeShip(Sender: TObject);
  begin
    case CBxYourPlayer.ItemIndex of
      -1 : ShipImage.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'\ships\blue.ico');
    end;
  end;

Leider wird das Icon nicht ins Image geladen. Wo liegt/liegen mein(e) Fehler???

MfG Florian :hi:

[Christian Seehase]

Moin Florian,

hast Du mal geprüft, ob ItemIndex überhaupt -1 ist?

[Marco Haffner]

Nimm statt -1 lieber else, außerdem enthält der Pfad bei ExtractFilePath bereits einen Backslash.

Delphi-Quellcode:

procedure TMainForm.ChangeShip(Sender: TObject);
begin
  with ShipImage.Picture do
  case CBxYourPlayer.ItemIndex of
     0: LoadFromFile(ExtractFilePath(ParamStr(0)) + 'ships\red.ico');
     1: LoadFromFile(ExtractFilePath(ParamStr(0)) + 'ships\green.ico');
  else
    LoadFromFile(ExtractFilePath(ParamStr(0))+'ships\blue.ico');
  end;
end;

[Luckie]

ItemIndex wird nur -1, wenn die Combobox leer ist!

[flomei]

Zitat:

Zitat von Luckie

ItemIndex wird nur -1, wenn die Combobox leer ist!

Aha. Also würde es reichen wenn ich statt -1 mit 0 anfange???

MfG Florian :hi:

[Marco Haffner]

Ja.

[flomei]

Yeah! Es geht! :dancer: :dancer2: *freu*

Dank an alle für die Hilfe!!!

MfG Florian :hi: