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