Kontinuierlich Schleife

[raena]

Ja das sehe ich auch so. Die Sache mit den Threats ist bestimmt gut.
Nun aber da ich die Aufgabe klarer formuliert habe wird bestimmt einfacher.

So, mit einem Timer habe ich folgendes Problem:
das Label wird zwar schoen geupdated, der Button ist aber nicht mehr ansprechbar.

Wie kann man erreichen, dass der Button noch reagiert, die Zeit aber trotzdem läuft?

Danke.

Delphi-Quellcode:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
showmessage('test');
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var i:integer;
begin
i:=0;
repeat
label1.Caption:=inttostr(i)+'               ';
label1.Refresh;
inc(i);
sleep(1000);
until (i>100);

end;

end.