Die Stelle
Delphi-Quellcode:
spieltimer.enabled:=true;
levelladenmenue.Visible:=false;
hauptlabel1.caption:='';
status:='ladelevel';
ist doch überall gleich, warum ist die in der
case-Anweisung drinnne?
Dann: Mach dir doch eine Prozedur:
Delphi-Quellcode:
procedure TForm1.LoadLevel(Index: Integer);
begin
level := Index;
spieltimer.enabled := true;
levelladenmenue.Visible := false;
hauptlabel1.caption := '';
status := 'ladelevel';
end;
procedure TForm1.ButtonOnClick(Sender: TObject);
begin
if levelladenmenue.Items[levelademenu.ItemIndex] <>
'<Level noch nicht verfügbar>' then
LoadLevel(levellademenue.ItemIndex);
end;
Ungetestet und ohne detailierte Infos würde ich es so machen.