Formular regiert nicht zur Laufzeit

**thomasch**

Hallo,
offenbar ist die Sache so simpel, dass sie nirgendwo steht...

Wie bringe ich mein Formular dazu, während es beschäftigt ist auf Benutzereingaben zu reagieren?

Zur Verdeutlichung hier ein ganz einfachss Beispiel

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

  stopit : Boolean ;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

i:Longint;

begin

  stopit:=false;

  while not stopit do

  i:=i+1;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  stopit:=true;

end;

end.

Wenn ich hier einmal Drücken von Button1 gedrückt habe, reagiert das formular und mit ihm Button2 nicht mehr.
Die Variante, ein zweites Form darüber zu legen ist mir zu unsauber...

Danke schonmal

Thomasch

Formular regiert nicht zur Laufzeit

Formular regiert nicht zur Laufzeit

Forumregeln