procedure TForm1.Button4Click(Sender: TObject); var i: Integer; begin Button4.Enabled:= false; //This should gray-out the button // get busy for some time for I := 0 to 100000000000 do begin end; Button4.Enabled:= true; end;
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)