button disablen ne funktion ausführen und wieder enablen?

[phXql]

Application.ProcessMessages bringt das Programm dazu, die eingehenden Messages zu verarbeiten. wenn man z.b. eine schleife hat, die 10000 mal ausgeführt wird, und in die schleife ein ProcessMessages macht, dann kann man die z.b. form während dem ausführen der schleife trotzdem noch bewegen (die schleife wird aber langsamer). schreib einfach mal Application.ProcessMessages hin. die 3te frage hab ich mit meiner 1sten Antwort beantwortet ;)

[Delphi Star]

wo muss ich Application.ProcessMessages hinmachen ich habs einfach mal an das Ende oder den Anfang geschrieben, bringt aber nix, was mach ich falsch :gruebel:

[phXql]

eigentlich so

Delphi-Quellcode:

Application.ProcessMessages;
[FUNKTION]
Application.ProcessMessages;

wenns nich geht, hab ich auch keine andere lösung..

[Nikolas]

Warum nimmst du nicht einfach einen Boolean? So frei nach

Delphi-Quellcode:

Button.onclick
begin

if BinAmRechnen then 
  begin
    showmessage('Ich rechne noch');  
    exit;
  end;
else
  begin
    BinAmRechnen:=true;
    langeprocedure;
  end;

BinAmRechnen:=false;
end;

Damit wird jeder Klick ignoriert so lange gerechnet wird.