Form wird nach dem compilieren nicht angezeigt

[fox67]

nein das mit dem Form Zeichnen ist gelöst aber die Schleife ist zu scnel und erfüllt deshalb nicht ihr Ziel

[himitsu]

Eine langsamere (Endlos)Schleie braucht länger, also eine Schnelle.

[fox67]

ja baer wie verlangsamt man eine endlos schleife????

[Perlsau]

Zitat von fox67:

nein das mit dem Form Zeichnen ist gelöst aber die Schleife ist zu scnel und erfüllt deshalb nicht ihr Ziel

Wie sieht denn nun deine Schleife aus?

Du stellst hier eine völlig neue Frage. Besser, du erstellst dafür einen neuen Thread. Es erleichtert das Auffinden von Themen enorm, wenn in jedem Thread nur jeweils eine Frage behandelt wird.

[himitsu]

Sleep?
Aber schau dir besser mal TTimer an.

@Perlsau: Wozu ein TThread? (vorallem wenn man sich TPunkt.Bewegung so ansieht)

[Perlsau]

Zitat von himitsu:

@Perlsau: Wozu ein TThread? (vorallem wenn man sich TPunkt.Bewegung so ansieht)

Nein, ich meinte nicht, er solle die Schleife in einen Thread auslagern, sondern im Forum ein neues Thema erstellen, wenn er eine neue Frage stellt.

[fox67]

habs jetzt mit slepp gemacht nur vergessen ins forum zu schreiben trotzdem danke

[Perlsau]

Zitat von himitsu:

Eine langsamere (Endlos)Schleie braucht länger, also eine Schnelle.

Wenn du jetzt noch verrätst, wozu eine langsame Endlos-Schleife länger braucht, wird's richtig lustig

Ich würde mal raten, du meinst, sie bräuchte länger, bis der Stack überläuft ...

[Perlsau]

Zitat von fox67:

habs jetzt mit slepp gemacht nur vergessen ins forum zu schreiben trotzdem danke

Dürfen wir mal deine jetzt nicht mehr endlos laufende Schleife sehen?

[fox67]

So jetzt hab ich mein Program beihnah zu ende Programmiert und ein Fehler mit wahrscheinlich gleicher ursache tritt auf.

Code:

unit test;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

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;
    Timer2: TTimer;
    Label1: TLabel;
    Shape1: TShape;
    Button1: TButton;
    Timer3: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure onclose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    punkt : TPunkt;
    sh   : array of TShape;
    shpos  : array of TPunkt;
    anzahl : integer;
  public
    { Public-Deklarationen }
    procedure erstellen();
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TPunkt.Bewegung();
var
i : integer;
begin
 form1.Timer2.Enabled :=false;
 repeat
  case rRichtung of
 1:
  begin
    rpunkt.Y:= rpunkt.Y +3;
    if rpunkt.Y > rhoehe-33 then rRichtung := 2;

    Sleep(25);
  end;
 2: begin
    rpunkt.Y:= rpunkt.Y -3;

    if rpunkt.Y < 0 then rRichtung := 1;
    Sleep(25);
  end;

 end;
  Application.ProcessMessages;
  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;
 timer2.Enabled:=true;

  end;

procedure TForm1.onclose(Sender: TObject; var Action: TCloseAction);
var
index :word;
begin
punkt.Free;
punkt.rschliessen := true;
for index := 0 to anzahl do
sh[index].Free;
shpos[index].Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
shape1.Top:= punkt.rpunkt.Y;
label1.Caption:=inttostr(punkt.rpunkt.Y);
end;
                                     
procedure TForm1.Timer2Timer(Sender: TObject);
begin
punkt.Bewegung ;
timer3.Enabled:=true;
timer2.Enabled :=false;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
var index : word ;
begin
for index := 0 to anzahl do
  sh[index].Top := shpos[index].rpunkt.Y;
//  sh2[index].Bewegung;
end;


procedure TForm1.Button1Click(Sender: TObject);
var X: Integer;
begin
  x:= anzahl+1;
  setLength(sh, x);
  setLength(shpos, x);
  erstellen();
end;

procedure TForm1.erstellen;
begin
  shpos[anzahl]:= TPunkt.Create;
  sh[anzahl]:= TShape.Create(self);
  sh[anzahl].Parent:= self;
  sh[anzahl].Brush.Color:= clred;
  sh[anzahl].Shape:= stcircle;
  sh[anzahl].Top :=shpos[anzahl].rpunkt.Y;
  sh[anzahl].Left := random(200);
  sh[anzahl].Height:= 33;
  sh[anzahl].Width:= 33;
  shpos[anzahl].Bewegung();
end;
end.

wenn ich jetzt auf den button klick um mir den ersten kreis zu erstellen bewegt sich nichts weder der kreis noch die shapevom timer1 (die nur zur kontrolle dient)