Fokus auf mehrere Komponenten setzen

[Freyr77]

So, nun habe ich nach einer Woche mein Programm wieder geöffnet. Was vorher funktioniert hat, funktioniert jetzt nicht mehr so wirklich. Ich versuche vom Hauptmenü mit Hilfe eines Buttons die Unit für den Spielmodus zu öffnen.

Das sieht so aus:

Delphi-Quellcode:

procedure TForm2.btnspielmodus501Click;
var
  Form1: TTSpielmodus501;
begin
Form1:=TTSpielmodus501.Create(self);
if FileExists('C:\Users\BERGMANN\Documents\DartProjekt\Spielmodus501.pas') then begin
  TTSpielmodus501.ShowModal;
  end else begin
    MessageDlg('Spiel konnte nicht gestartet werden', mtError, [mbOK], 0);
  end;
end;

So weit, so gut. Das hat schon immer funktioniert. Es ist auch nichts rot markiert. Jetzt sagt er mir aber beim kompilieren auf einmal :

"Diese Form des Methodenaufrufs ist nur für Klassenmethoden oder Konstruktoren zulässig"

Hat da jemand Lösungsansätze?

[Sir Rufo]

Nur eine Instanz kann man mit ShowModal zum Anzeigen überreden. Die Klasse selber ist nur die Beschreibung.

Mit Auto kann man nicht fahren, sondern mit dem Auto oder mit deinem Auto (eben etwas Konkretem und nicht mit einer Definition).

Insgesamt sieht das was du dort machst sehr seltsam aus. Wozu prüfst du diese *.pas Datei ab? Das ist eine Anleitung, wie dein Programm gebaut werden soll.

Das ist dann so, dass du dein Auto nur dann benutzen könntest, wenn du auch die Konstruktionspläne besitzt. Hört sich seltsam an

[Freyr77]

Hat sich erledigt, war mal wieder ein Flüchtigkeitsfehler..

[Sir Rufo]

Zitat von Freyr77:

Hat sich erledigt, war mal wieder ein Flüchtigkeitsfehler..

Auch das Prüfen der *.pas Datei?

Delphi hat einen Compiler und keinen Interpreter. Der Quellcode wird nach der Erstellung von der Anwendung selber nicht mehr benötigt.

[Freyr77]

Zitat von Sir Rufo:

Zitat von Freyr77:

Hat sich erledigt, war mal wieder ein Flüchtigkeitsfehler..

Auch das Prüfen der *.pas Datei?

Delphi hat einen Compiler und keinen Interpreter. Der Quellcode wird nach der Erstellung von der Anwendung selber nicht mehr benötigt.

Wie gestalte ich das denn eleganter? Was ich mit dem Code erreichen will ist aber verständlich, oder?

[Sir Rufo]

Ich kann nur raten, was du da möchtest.

Du willst prüfen, ob es diesen Spielmodus 501 gibt.

Wenn es den allerdings nicht gibt, dann gibt es auch keine Klasse TSpielmodus501 und du kannst das Programm gar nicht erstellen.

[Freyr77]

Der Button in TForm2 soll das OnCreate von der unit Spielmodus501(TForm1) öffnen.

Also das ist quasi die Auswahl, dass man diesen Spielmodus spielen will. Danach erfolgt die Eingabe der Namen und dann starte das ganze.

Er kompiliert das ganze auch so, wenn ich allerdings auf den Button drücke sagt er mir jetzt Zugriffsverletzung bei Adresse 00000000..

[Sir Rufo]

Dafür reicht

Delphi-Quellcode:

procedure TForm2.btnspielmodus501Click;
var
  Form1: TTSpielmodus501;
begin
  Form1 := TTSpielmodus501.Create( self );
  Form1.ShowModal;
end;

Ich weiß nur nicht, ob du mit dieser lokalen Variablen glücklich wirst ... aber das wirst du dann schon sehen

Zitat von Freyr77:

Er kompiliert das ganze auch so, wenn ich allerdings auf den Button drücke sagt er mir jetzt Zugriffsverletzung bei Adresse 00000000..

Ich wette mal, dass du in TTSpielmodus501 auf die Variable Form1 zugreifen möchtest ...

Ersetze das dort einfach mal mit Self .

[Freyr77]

Delphi-Quellcode:

procedure TTSpielmodus501.SiegerSpieler1;
begin
  if (lblpunktestand1.Caption < inttostr(1))  then
  ShowMessage('spielername1' + 'hat das Spiel gewonnen.');
  end;

Nächstes Problem: Ich habe jetzt diese Prozedur geschrieben, um zu sehen ob es funktioniert. Habe sie in OnCreate eingebunden. Es passiert allerdings NICHTS wenn der Punktestand auf 0 geht.

[frankyboy1974]

hallo,

Zitat:

Habe sie in OnCreate eingebunden. Es passiert allerdings NICHTS wenn der Punktestand auf 0 geht.

Es reicht nicht wenn du die Methode einmalig im OnCreate aufrufst, du musst Sie schon bei jeder Änderung des Punktestandes neu aufrufen.

mfg