Forum: Object-Pascal / Delphi-Language
by Binärbaum,
5. Mär 2005
Wenn der Button einmal gedrückt wurde, kann man die Eigenschaft Enabled des Buttons auf False setzen und am Ende der Prozedur wieder auf True:
procedure TForm1.OnButtonClick;
begin
Button1.Enabled:= False;//Button1 gesperrt
for i := 0 to 2323324 do
begin
// ...
Application.ProcessMessages;
if FAborted then Break;
Forum: Object-Pascal / Delphi-Language
by Binärbaum,
5. Mär 2005
Innerhalb einer for-Schleife kann man mit Break; die Schleife verlassen. Prozeduren beendet man mitExit;
MfG
Binärbaum