Buttons und Schleifen

Default112 · Beiträge: 76 Win XP D6 Prof

So, ich habe mal mein Problem vereinfacht dargestellt:

Ich habe einen Button, da drück ich drauf und er rechnet was, das dauert ziemlich lange.
Während gerechnet wird, kann ich aber keine anderen Buttons drücken.

Um das zu vereinfachen, habe ich mal nen kleines Programm geschreiben, was mein Problem veranschaulicht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.FormCreate(Sender: TObject);
begin
  gedrueckt := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  repeat until gedrueckt;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  gedrueckt := true;
end;

Ungefähr so stellt soch mein Problem dar. Ich muss also die Schleife durch einen Knopfdruck abbrechen können.

MFG
Def

Adrian · Beiträge: 314

Servus!

Mach mal das:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  repeat
    Application.ProcessMessages;
  until gedrueckt; 
end;

Dann müßte es klappen.

Gruß,

Adrian

Default112 · Beiträge: 76 Win XP D6 Prof

Also soll das "Application.ProcessMessages;" dahin, wo er den Button abragen soll, richtig?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme