Etwas Bewegung in meine Programme?

[dust258]

Ich habe vor einiger Zeit angefangen mich durch diverse Anfänger-Tutorials zu kämpfen und würde jetzt gerne ein wenig Bewegung in meine Programme bekommen. Also habe ich mir ein kleines Testprogramm geschrieben in dem ein Button einfach im Kreis wandert.

An sich funktioniert das ganz gut, nur kann ich das Programm nicht schließen, solange die Schleife läuft und es scheint mir auch ein wenig mehr Performance zu ziehen, als man vielleicht denken mag...

Mache ich was falsch oder bin ich mit meinem Ansatz einfach nur total auf dem Holzweg?



Bewegungstest.rar]Bewegungstest.rar

http://eit.total-latten.de/uploads/f...1_bewegung.jpg

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Bt1: TButton;
    Button2: TButton;
    Btst1: TButton;
    procedure Button2Click(Sender: TObject);
    procedure create(Sender: TObject);
    procedure Btst1Click(Sender: TObject);
    procedure Bt1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  stop:integer;
  i:Integer;
implementation

{$R *.dfm}


procedure TForm1.Bt1Click(Sender: TObject);
begin
if stop=0 then
begin
stop:=1;
end
else
begin
stop:=0;
end;
end;

procedure TForm1.Btst1Click(Sender: TObject);
begin
if stop=0 then
begin
stop:=1;
Btst1.Caption:=('Schleife an');
end
else
begin
stop:=0;
Btst1.Caption:=('Schleife aus');
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var xstart, ystart, xradius, yradius, aufloesung: Integer;
begin
repeat

  ystart:=100;
  xstart:=100;
  yradius:=100;
  xradius:=100;
  aufloesung:=100;

  bt1.Top:=round(ystart+xradius+(xradius*sin(i/aufloesung)));
  bt1.Left:=round(xstart+yradius+(yradius*cos(i/aufloesung)));


Application.ProcessMessages;
sleep(2);
until Stop=1;

Application.ProcessMessages;
end;
procedure TForm1.create(Sender: TObject);
begin
stop:=0;
end;

end.