button disablen ne funktion ausführen und wieder enablen?

[Delphi Star]

procedure TForm1.Button1Click(Sender: TObject);
...
begin
Button1.Enabled := false;
...
button1.Enabled := true;
...
end;

Wiso funzt das net???
Ich möchte das wenn man den Button drückt,er undrückbar gemacht werden soll, dann soll die Funktion ausgeführt werden und dann soll der button wieder drückbar gemacht werden, bezwecken möchte ich damit das man die funktion net zweimal starten kann oder erst wieder wenn sie abgelaufen ist.
Gibts dafür nen anderen weg als meinen??

[Touchdown]

Natürlich funktioniert es so wie in deinem Beispiel.

Sehr wahrscheinlich wird deine Funktion so schnell abgearbeitet, daß du es nicht sehen kannst ob die entsprechende Button Eigenschaft sich verändert hat.

[Sebastian Nintemann]

Hallo Delphi Star,
was funktioniert daran nicht? Bei mir funktionierts (hab in der eigentlichen Prozedur nur ein sleep(3000) stehen.

VieleGrüße, Sebastian

[Muetze1]

Moin!

Dein Code ist schon richtig, das Problem ist einfach nur das deine Routine so schnell ausgeführt wird, das du nicht siehst, das der Button grau ist...

MfG
Muetze1

[Delphi Star]

Mein Progi stürzt ab sobald ich denn button dücke, ich hab aber keinen normalen button sondern denn mit dem bild (find den Namen grad net)

[Muetze1]

Moin!

TBitBtn vermutlich. Der Absturz hat aber nix mit dem hier gezeigten Code zu tun, daher zeige mal an, welche Exception kommt. Ich vermute jetzt mal ganz dumm einen EStackOverflow...

MfG
Muetze1

[Delphi Star]

es geht jetzt aber wenn ich den button drücke wird er zwar grau, aber wenn ich dann noch mal drauf drücke während er grau ist wird die funktion nach dem abschluss des ersten males gleich noch mal ausgeführt

[nailor]

logisch. weil während er disabled ist die funktion ausgeführt wird, und wenn der klick verarbeitet wird (nach der funktion) er wieder enabled ist. musst du dir was anderes überlgen

[phXql]

wie wärs mit einem application.processmessages vor und nach dem ausführen der funktion?

[Delphi Star]

Was ist eine application.processmessages und wie benutzt man das oder was für nen befehl braucht man dauür

[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.