Problem set button to enabled = false

[MaartenJB]

Hi,

I've got a problem with setting a button to status enabled:= false. The button on the form does not refresh properly after the ProcessMessages command. This is the example code, two buttons on the form, button1 disables button2:

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2.Enabled := False;

  Application.ProcessMessages;
  sleep(2000); // for example 2 seconds
end;

The strange thing is that it will work with the sender button "Button1".

Thanks in advance!

[User137]

Seems strange indeed.

This is 1 kind of workaround that seems to work... don't ask why 

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var n: integer;
begin
  Button2.Enabled := False;
  for n:=1 to 40 do begin
    Application.ProcessMessages;
    sleep(50);
  end;
end;

[MaartenJB]

strange :-)

This does work too:

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2.Enabled := False;

  Sleep(200);
  Application.ProcessMessages;

  sleep(2000);
end;

When you change the first sleep to "90", the button goes half way trough the button animation.