Fokus auf mehrere Komponenten setzen

[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.