Form wird nach dem compilieren nicht angezeigt

[fox67]

Hallo
Seit kurzem hab ich wieder angefangen mit Delphi zu programmieren und probier zur Zeit hauptsälich eigenen Klassen zu programmieren und so weiter
Bei diesem Program wollte ich auch gleich mal die repeat Schleife ausprobieren

Code:

type
  TPunkt = class(TObject)
    private
    { Private-Deklarationen }
     rRichtung : Integer;
     rhoehe : Integer;
     rpunkt  : TPoint;
     rschliessen : Boolean;
//     procedure ermmittlehöhe();
     public
    { Public-Deklarationen }
    procedure Bewegung();

  end;


  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure onclose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    punkt : TPunkt;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{procedure TPunkt.ermmittlehöhe;
begin
  rhoehe := form1.ClientHeight;
  Bewegung();
end;}

procedure TPunkt.Bewegung();

begin
 repeat
 case rRichtung of
 1:
  begin
    rpunkt.Y:= rpunkt.Y +1;
    if rpunkt.Y = rhoehe then rRichtung := 2;

  end;
 2: begin
    rpunkt.Y:= rpunkt.Y -1;

    if rpunkt.Y = 0 then rRichtung := 1;

  end;

 end;
  until   rschliessen = true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 punkt := TPunkt.Create;
 //punkt.ermmittlehöhe;
 punkt.rpunkt.Y:= 0;
 punkt.rRichtung:=1;
 punkt.rhoehe:=form1.ClientHeight;
 punkt.rschliessen := false;
 punkt.Bewegung;

 end;

procedure TForm1.onclose(Sender: TObject; var Action: TCloseAction);
begin
punkt.Free;
punkt.rschliessen := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

showmessage(inttostr(punkt.rpunkt.Y));
end;

end.

Wenn ich allerdings compelieren wil erscheint das Fenster meines Programmes nicht. Warum kann ich mir denken doch wie kann man des verhindern. (Das Programm ist noch nicht fertig ich wollte es nur mal testen )

[Phoenix]

Warum denkst Du denn wird das Formular nicht angezeigt?

Und was könntest Du Dir für Deinen Grund als Alternativmöglichkeiten vorstellen?

Spoiler:
Noch bevor das Formular das allererste mal gezeichnet wird startest Du eine Endlosschleife.
Die lässt dem Formular keine Möglichkeit mehr, die Nachrichten zu verarbeiten die es Zeichnen würden. Ein simples Applicatio.ProcessMessages; würde reichen, macht die Schleife aber wieder rotzlahm.

[Popov]

Was steht in der Projektdatei (Menu Projekt > Quelltext anzeigen)?

[fox67]

Code:

program Project1;

uses
  Forms,
  test in 'test.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

@Popov das ist der Code den du meinst oder?

@Phoenix ich glaub da ic die Procedure mit der Schleife direct in die oncreate procedure reingeschrieben hab das die Form erst dann erstellt wird wenn die Schleife beendet wurde

[Phoenix]

Zitat von fox67:

@Phoenix ich glaub da ic die Procedure mit der Schleife direct in die oncreate procedure reingeschrieben hab das die Form erst dann erstellt wird wenn die Schleife beendet wurde

Genau. Jetzt markier mal den Rest von meinem Beitrag oben - hab die Antwort dort weiss auf weiss geschrieben Dann siehst Du einen möglichen Lösungsansatz, der zum testen mal ausreicht.

[himitsu]

Rate mal, warum dein Delphi einen Debugger hat?
Denn kann man doch tatsächlich dafür benutzen, um zu schauen warum etwas nicht passiert, bzw. was gerade passiert.


PS: [DELPHI]-Tags haben auch ihre Vorteile.
Und die Überschrift ... Was wird denn?

[fox67]

Danke jetzt wird zumindest mal das messagefeld angezeigt

Zitat:

Genau. Jetzt markier mal den Rest von meinem Beitrag oben - hab die Antwort dort weiss auf weiss geschrieben Dann siehst Du einen möglichen Lösungsansatz, der zum testen mal ausreicht.

Den trick mit der weissen Schrift merk ich mir der ist nicht schlecht

[fox67]

Zitat:

Und die Überschrift ... Was wird denn?

OH das ist mir gar nich aufgefallen wahrscheinlich hab ich zu schnell getippt oder die überschrift wahr zulang