Inhaltsabfrage in Delphi 10.2

[iTzElKay]

Ich bin nicht dumm. Ich programmiere nur mit Embarcadero, aber wenn ich deine Datei öffnen will, möchte das immer mit VisualStudios starten, obwohl ich es nicht mal auf meinem Computer besitze. Wenn ich versuche, das Projekt mit Embarcadero zu öffnen, geht das nicht, da einfach das Projekt nicht angezeigt wird. Ich habe es nie gemeint, dass ich versuche irgendwas mit VisualStudios zu öffnen, sondern es will sich von alleine mit VisualStudios öffnen!

Damit meine ich, dass ich deine Dateien entpackt habe und versucht habe, das Projekt auszuführen. Aber es passiert einfach gar nicht. Es scheint so, als würde es kurz laden, öffnen tut sich aber nichts.

[mkinzler]

Dann korrigiere die Verknüpfung der entsprechenden Dateitypen.

[iTzElKay]

Ist jetzt aber auch egal. Ich probiere es nochmal von vorne und danke für eure Hilfe!

[KodeZwerg]

Hallo Leon,

ja das war missverständlich was Du da vorher geschrieben hattest, nun ist ja alles geklärt.

Am einfachsten wird es sein wie mkinzler es sagte, korrigiere die Verknüpfungen.

Also rechtsklick auf eine .dpr Datei, dann "Öffnen mit...", eventuell steht da sogar schon Embarcadero RAD Studio zu Auswahl, wenn nicht surfe zum Installationsverzeichnis und markiere BDS.exe, noch ein Haken bei "Datei immer damit öffnen" rein und nun sollte alles so sein wie es normalerweise sein sollte.

[iTzElKay]

Nochmal ein großes Dankeschön für eure Bemühungen. Jetzt habe ich noch ein Problem, haha - ich Problemfall. Und zwar habe ich Labels, die durch ein OnClick Event enabled werden sollen, jedoch werden nicht alle enabled. Im Anhang ist das Bild. Und zwar soll nach Betätigung des 1 Spieler Buttons, der Start-Button benutzbar sein. Dieser aktiviert, je nach Spieler Anzahl, die verschiedenen Elemente. Jedoch sieht man (delphiportal1), dass nur manche Enabled werden und die anderen erst durch Überfliegen mit der Maus enabled sind. Application.ProcessMessages, self.Repaint, self.Update, labelname.Update und Co auch - gerade keine Ahnung mehr :/

[mkinzler]

Ohne Deinen Code zu Kennen, wird es schwer Dir zu Helfen.

[iTzElKay]

Code:

niSpielerNr := 1;
  onePlayerSBtn.Enabled := false;
  twoPlayerSBtn.Enabled := false;
  startSBtn.Enabled     := false;
  newGameSBtn.Enabled   := true;

  wuerfel1BBtn.Enabled  := true;
  wuerfel2BBtn.Enabled  := true;
  wuerfel3BBtn.Enabled  := true;
  wuerfel4BBtn.Enabled  := true;
  wuerfel5BBtn.Enabled  := true;
  wuerfel6BBtn.Enabled  := true;
  wuerfel7BBtn.Enabled  := true;

  wuerfel1SBtn.Enabled  := true;
  wuerfel2SBtn.Enabled  := true;
  wuerfel3SBtn.Enabled  := true;
  wuerfel4SBtn.Enabled  := true;
  wuerfel5SBtn.Enabled  := true;
  wuerfel6SBtn.Enabled  := true;
  wuerfel7SBtn.Enabled  := true;

  wuerfelnBBtn.Enabled  := true;
  enableSpieler1( true );
  wuerfelnBBtn.SetFocus;

Code:

procedure TKnuffel.enableSpieler1(lbEinAus: Boolean);
begin

  player1CB1er.Enabled          := lbEinAus;
  player1CB2er.Enabled          := lbEinAus;
  player1CB3er.Enabled          := lbEinAus;
  player1CB4er.Enabled          := lbEinAus;
  player1CB5er.Enabled          := lbEinAus;
  player1CB6er.Enabled          := lbEinAus;

  player1CB3Pasch.Enabled       := lbEinAus;
  player1CB4Pasch.Enabled       := lbEinAus;
  player1CB5Pasch.Enabled       := lbEinAus;
  player1CB6Pasch.Enabled       := lbEinAus;
  player1CB2Doppel.Enabled      := lbEinAus;
  player1CB3Doppel.Enabled      := lbEinAus;
  player1CBTrippel.Enabled      := lbEinAus;
  player1CBKFH.Enabled          := lbEinAus;
  player1CBGFH.Enabled          := lbEinAus;
  player1CBMStr.Enabled         := lbEinAus;
  player1CBKStr.Enabled         := lbEinAus;
  player1CBGStr.Enabled         := lbEinAus;
  player1CBKnuffel.Enabled      := lbEinAus;
  player1CBChance.Enabled       := lbEinAus;

  wert1Label1er.Enabled         := lbEinAus;
  wert1Label2er.Enabled         := lbEinAus;
  wert1Label3er.Enabled         := lbEinAus;
  wert1Label4er.Enabled         := lbEinAus;
  wert1Label5er.Enabled         := lbEinAus;
  wert1Label6er.Enabled         := lbEinAus;

  wert1LabelTotal.Enabled       := lbEinAus;
  wert1LabelBonus.Enabled       := lbEinAus;
  wert1LabelGOO.Enabled         := lbEinAus;

  total1Label.Enabled           := lbEinAus;
  bonus1Label.Enabled           := lbEinAus;
  totallyAbove1Label.Enabled    := lbEinAus;

  wert1Label3Pasch.Enabled       := lbEinAus;
  wert1Label4Pasch.Enabled       := lbEinAus;
  wert1Label5Pasch.Enabled       := lbEinAus;
  wert1Label6Pasch.Enabled       := lbEinAus;
  wert1Label2Doppel.Enabled      := lbEinAus;
  wert1Label3Doppel.Enabled      := lbEinAus;
  wert1LabelTrippel.Enabled      := lbEinAus;
  wert1LabelKFH.Enabled          := lbEinAus;
  wert1LabelGFH.Enabled          := lbEinAus;
  wert1LabelMStr.Enabled         := lbEinAus;
  wert1LabelKStr.Enabled         := lbEinAus;
  wert1LabelGStr.Enabled         := lbEinAus;
  wert1LabelKnuffel.Enabled      := lbEinAus;
  wert1LabelChance.Enabled       := lbEinAus;

  wert1LabelGU.Enabled           := lbEinAus;
  wert1LabelGOU.Enabled          := lbEinAus;
  wert1LabelInsgesamt.Enabled    := lbEinAus;

  totallyBelow1Label.Enabled           := lbEinAus;
  totallyAbove3Label.Enabled           := lbEinAus;
  totallyCombined1Label.Enabled        := lbEinAus;
end;